Вычислить S равнобедренной трапеции

[SWAT126]

Люди добрые я нуб в паскали да и вобше... помогите пожалуйсто решить задачу :Вычислить S равнобедренной трапеции.
Если можете напишите все как в программе от var и до end
Заранее спосибки.

[sheka]

s=(a+b)*h/2

[SWAT126]

Сообщение от sheka

s=(a+b)*h/2

а можно полностью

[Mr.Qwerty]

Конечно же можно..
program srav;
uses Crt;
var a,b,h:integer; s:real;
begin
ClrScr;
Writeln('Введите a,b,h');
Readln(a,b,h);
s:=0.5*(a+b)*h;
Writeln('Площадь=',s);
Readln;
end.