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.