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

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.