Составьте !БЛОК СХЕМУ! и программу вычисления площади трапеции

uses crt; var a,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.