Составить программу на языке паскаль нохождения площади трапеции

Uses crt;
vara,b,h,S:real;
begin
writeln('Поиск площади трапеции через основание и высоту');
writeln(); 
write('Введи основание а = '); 
readln(a); 
writeln(); 
write('Введи основание b = '); 
 readln(b); 
writeln();   
write('Введи высоту h = '); 
 readln(h);     
S:=h*(a+b)/2;     
writeln('ответ: ',S);
end.