Пробуйте:
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.