Умоляю, помогите с Паскалем
1. Пользователь вводит неотрицательное однозначное число A. Написать программу:
вычисляющую в случае ввода 1 - площадь круга с радиусом A,
вычисляющую в случае ввода 2 - площадь квадрата со стороной A,
вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной A,
выдающую сообщение «нужно ввести число 1, 2, 3» в остальных случаях.

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.