знамениты размеры комнаты: a-длина, b-ширина, h-вышина. Составьте программку нахождения

как вариант:

var

   a, b, h : integer;

begin

   a := readInteger('введите a = ');

   b := readInteger('введите b = ');

   h := readInteger('введите h = ');

   writeln('площадь поверхности стен одинакова ', 2*a*h+2*b*h);

end.

Program n_1;

var a, b, h, s1, s2:integer;

begin

   writeln('Введите длину, ширину и вышину комнаты');

   read(a, b, h);

   s1:=a*h;

   s2:=b*h;

   writeln('Площади 1 и 3 стенки равны и одинаковы ', s1, '. Площади 2 и 4 стенки одинаковы и равны ', s2);

end.