Напишите программу и процедуру, вызываемую из основной программы для вычисления площади поверхности параллелепипеда по заданным значениям: высота, длина ребра основания, площадь боковой стороны. 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.
Но это очень не точно.