Question

пожалуйста переведите на Паскаль задание 3
все 3 таблицы надо

Answer 1

1 задание)
var a, b, h, s: real;
Begin
write('Введите основания трапеции: ');
read(a,b);
writeln('Введите высоту трапеции: ');
read(h);
s  := ((a + b) / 2) * h;
writeln(s);
End.