Составить программу Паскаль для нахождения площади трапеции с основаниями а ,б меньшн h

{ s(трапеции) = ((a+b)/2)*h; }
uses crt;
var
a, b, h: Integer; (Real)
s: Real;
begin
WriteLn(Введите а: ,a);ReadLn(a);
WriteLn(Введите b: ,b);ReadLn(b);
WriteLn(Введите h: ,h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn(S = , s);
ReadLn;
end.
Если же а и б должны быть обязательно меньше h, то:
if (a begin
WriteLn(Введите а: ,a);ReadLn(a);
WriteLn(Введите b: ,b);ReadLn(b);
WriteLn(Введите h: ,h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn(S = , s);
ReadLn;
end;
else begin
WriteLn(Основания не меньше h!);
ReadLn;
end;