Найти сумму периметров равнобедренных трапеций

[Дюша Метелкин]

Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров, используя подпрограмму определения периметра равнобедренной трапеции по ее основаниям и высоте.

[Dvoishnik]

Сообщение от Дюша Метелкин

определения периметра равнобедренной трапеции по ее основаниям и высоте.

формулу приведете?

[Дюша Метелкин]

Сообщение от Dvoishnik

формулу приведете?

Все, написал.

function perim(a,b,h: integer): real;
var p,l: real;
begin
  l:=sqrt(sqr((b-a)/2)+h*h);
  p:=a+b+2*l;
  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);
  p1:=perim(x1,x2,h1);
  writeln('Периметр 1-й трапеции: ',p1);
 
  write('Введите 1-е основание трапеции: ');
  readln(y1);
  write('Введите 2-е основание трапеции: ');
  readln(y2);
  write('Введите высоту трапеции: ');
  readln(h2);
  p2:=perim(y1,y2,h2);
  writeln('Периметр 1-й трапеции: ',p2);
  writeln('Сумма периметров = ',p1+p2);
end.