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

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