Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров и сумму их площадей. Определить процедуру для расчета периметра и площади равнобедренной трапеции по ее основаниям и высоте — Pascal(Паскаль)

uses crt;
var a1,b1,h1,p1,s1,a2,b2,h2,p2,s2,sp,ss:real;
procedure Per(x,y,z:real; var p:real);
begin
p:=x+y+2*sqrt(sqr((x-y)/2)+sqr(z));
end;
procedure Plsh(x,y,z:real; var s:real);
begin
s:=z*abs(x+y)/2;
end;
begin
clrscr;
Writeln('Vvedite dva osnovania i vysotu pervoj trapecii:');
read(a1,b1,h1);
readln;
Writeln('Vvedite dva osnovania i vysotu vtoroy trapecii:');
read(a2,b2,h2);
readln;
Per(a1,b1,h1,p1);
Per(a2,b2,h2,p2);
writeln('Summa perimetrov=',(p1+p2):0:2);
Plsh(a1,b1,h1,s1);
Plsh(a2,b2,h2,s2);
writeln('Summa ploshadej=',(s1+s2):0:2);
readln
end.