Впаскале: 1) найти площадь круга, если известны пи и радиус. 2)найти площадь треугольника если известны h и a 3)найти площадь трапеции если известны a, b и h заранее

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. 

д, а, д

Объяснение:

ххх0