Pascal!

Даны основания и высота р/б трапеции. Найти ее периметр!

Пробуйте:

var a, b, h: integer; p: real;

begin

write ('Введите длину большего основания: ') ; read (a) ;

write ('Введите длину меньшего основания: ') ; read (b) ;

write ('Введите длину высоты: ') ; read (h) ;

p:=a+b+2*sqrt (sqr (h) + sqr (a-b) / 4) ;

writeln ('Периметр = ', p) ;

end.