В Паскале: 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.