Задание 3. Напишите код программы, который будет вычислять площадь фигуры. ​

program square;

var a, b, h, x:integer;

s:real;

label 10,20;

begin

10:Writeln ('введите значение верхнего основание трапеции');

Readln(a);

Writeln ('введите значение нижнего основание трапеции');

Readln(b);

Writeln ('введите значение высоты трапеции');

Readln(h);

s:=(a+b)*h/2;

Writeln ('площадь трапеции:', s);

Writeln ('Закончить программу 1-Да, 2-Нет');

Readln(x);

if x=1 then goto 20 else goto 10;

20:end.