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

Сейчас наклацкаю. Ожидай
uses crt;
function Per(a,b,h:real):real;
var d,c:real;
begin
d:=abs(a-b)/2;
c:=sqrt(h*h+d*d);
Per:=a+b+2*c;
end;
var a,b,h:real;
begin
clrscr;
writeln('Введите основания трапеций: ');
readln(a,b);
write('Высота меньшей трапеции h=');
readln(h);
writeln('Отношение периметров при отношении высот: ');
writeln('2:1=',Per(a,b,2*h)/Per(a,b,h):0:2);
writeln('3:1=',Per(a,b,3*h)/Per(a,b,h):0:2);
writeln('4:1=',Per(a,b,4*h)/Per(a,b,h):0:2);
readln
end.