задача:
даны основания и высоты двух равнобедренных трапеций.
Найти сумму их периметров (ОПРЕДЕЛИТЬ ФУНКЦИЮ для расчета периметра равнобедренной трапеции по ее основаниям и высоте)

function perim(a,b,h: integer): real;
var p: real;
begin
  p:=h*(a+b)/2;
  perim:=p;
end;

var
  x1,x2,h1: integer;
  y1,y2,h2: integer;
  p1,p2: real;
begin
  write('Введите 1-е основание трапеции: ');
  readln(x1);
  write('Введите 2-е основание трапеции: ');
  readln(x2);
  write('Введите высоту трапеции: ');
  readln(h1);
 
  writeln('Периметр 1-й трапеции: ',perim(x1,x2,h1):6:2);
 
  write('Введите 1-е основание трапеции: ');
  readln(y1);
  write('Введите 2-е основание трапеции: ');
  readln(y2);
  write('Введите высоту трапеции: ');
  readln(h2);
 
  writeln('Периметр 2-й трапеции: ',perim(y1,y2,h2):6:2);
  readln;
end.