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

Фотографируйте пожалуйста чётче, с трудом разбираю, что написано в блок-схемах...

спасибо за 1 задание просто торопилась что бы не спалили

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