Написать на Pascal программу.Даны основания и высота равнобедренной трапеции.Найти её периметр

Program Trapecia;
  Var  h, a, b, c: real;
begin  
  writeln('Введите значение высоты'); 
  readln(h);   
  writeln('Введите значение основания трапеции 1'); 
  readln(a); 
  writeln('Введите значение основания трапеции 2'); 
  readln(b); 
  if a>b then   
    c:=sqrt(sqr((a-b)/2)+sqr(h)) 
  else   
     c:=sqrt(sqr((b-a)/2)+sqr(h));     
   writeln('Периметр трапеции равен ',a+b+2*c);
end.