Напишите программу и процедуру, вызываемую из основной программы для вычисления площади...

Question

Напишите программу и процедуру,
вызываемую из основной программы для вычисления площади поверхности
параллелепипеда по заданным значениям: высота, длина ребра основания, площадь
боковой стороны. free pascal

Answer 1

Const
var s:integer;
procedure ploshad poverhnosti (s:integer);
var h,l,sbok:integer;
begin
writeln (' vedite l i h');
readln (l,h);
sbok:=h*(l^2);
end;
begin 
s:=(ploshad poverhnosti)+2*(l^2);
writeln(s,' '); 
readln;
end.
Но это очень не точно.