Напишите программу которая вычислит площадь геометрических фигур в Паскале ... 1) Круг 2) прямоугольник 3) квадрат 4) паралеллограм

1) по заданному радиусу:

Program n1;

Uses CRT;

Var r, s: real;

begin

ClrScr;

writeln ('Vvedite radius');

readln (r);

s:=r*r*pi;

Writeln ('ploshad = ', s:4:4);

readln

end.

2) по заданным сторонам:

Program n1;

Uses CRT;

Var a, b, s: real;

begin

ClrScr;

writeln ('Vvedite storoni');

readln (a, b);

s:=a*b;

Writeln ('ploshad = ', s:4:4);

readln

end.

3) по заданной стороне

Program n1;

Uses CRT;

Var a, s: real;

begin

ClrScr;

writeln ('Vvedite storony');

readln (a);

s:=a*a;

Writeln ('ploshad = ', s:4:4);

readln

end.

3) по одной стороне и высоте к ней:

Program n1;

Uses CRT;

Var a, b, s: real;

begin

ClrScr;

writeln ('Vvedite storony i vysoty k nei');

readln (a, b);

s:=a*b;

Writeln ('ploshad = ', s:4:4);

readln

end.