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

Спасибо )

{ s(трапеции) = ((a+b)/2)*h; }uses crt;vara, b, h: Integer; (Real)s: Real;beginWriteLn('Введите а: ',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 < h) and (b < h) thenbeginWriteLn('Введите а: ',a);ReadLn(a);WriteLn('Введите b: ',b);ReadLn(b);WriteLn('Введите h: ',h);ReadLn(h);s:= ((a+b)/2)*h;WriteLn('S = ', s);ReadLn;end;else beginWriteLn('Основания не меньше h!');ReadLn;end;