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

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