Question

Помогите составить программу на языке паскаль!

Составить программу линейной структуры
В квадратной комнате шириной А и высотой В решили поклеить обои.
Вычислите площадь стен для оклеивания их обоями.

Взарание спасибо.

Answer 1

program odoi; 
var a,b,s: real;  
begin    
  writeln('введите ширину a');   
   readln(a);   
  writeln('введите ширину b');   
    readln(b);   
   s:=a*b;   
writeln('площадь равна s=',s)
 end.