Program v1;
uses crt;
var a,b,h,s:real;
begin
writeln('Введите длину параллелепипеда a'); readln(a);
writeln('Введите ширину параллелепипеда b'); readln(b);
writeln('Введите высоту параллелепипеда h'); readln(h);
s:=2*(a*b+a*h+b*h);
writeln('========================');
writeln('ответ');
writeln('Площадь поверхности параллелепипеда s равна ',s, ' кв.см'); readln;
end.
