Напишите программу и процедуру,

вызываемую из основной программы для вычисления площади поверхности

параллелепипеда по заданным значениям: высота, длина ребра основания, площадь

боковой стороны. free pascal

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.

Но это очень не точно.