1)

Program CircleS;

Uses Crt;

const pi=3.14;

var S,r:real;

begin

     Clrscr;

      write('Введите радиус r:');

      readln(r);

      S:=pi*(r*r);

      writeln('Площадь круга равна:',S);

end. 

2)

Program TriangleS;

Uses Crt;

var S,a,h:real;

begin

     Clrscr;

      write('Введите высоту треугольника  h:');

      readln(h);

      write(' Введите сторону треугольника  а:');

      readln(a);

      S:=0.5*a*h;

      writeln('Площадь треугольника равна:',S);

end. 

3)

Program TrapezoidS;

Uses Crt;

var S,a,b,h:real;

begin

     Clrscr;

      write('Введите высоту трапеции  h:');

      readln(h);

      write(' Введите сторону   трапеции   а:');

      readln(a);

      write(' Введите сторону   трапеции   b:');

      readln(b);

      S:=0.5*(a+b)*h;

      writeln('Площадь трапеции  равна:',S);

end.