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

прости я не то написала!!!

ахринеть

можешь правильно написать?

1) по заданному радиусу: Program n1;Uses CRT;Var r,s: real;beginClrScr;writeln('Vvedite radius');readln(r);s:=r*r*pi;Writeln('ploshad =',s:4:4);readlnend. 2) по заданным сторонам:Program n1;Uses CRT;Var a,b,s: real;beginClrScr;writeln('Vvedite storoni');readln(a,b);s:=a*b;Writeln('ploshad =',s:4:4);readlnend. 3) по заданной сторонеProgram n1;Uses CRT;Var a,s: real;beginClrScr;writeln('Vvedite storony');readln(a);s:=a*a;Writeln('ploshad =',s:4:4);readlnend. 3) по одной стороне и высоте к ней:Program n1;Uses CRT;Var a,b,s: real;beginClrScr;writeln('Vvedite storony i vysoty k nei');readln(a,b);s:=a*b;Writeln('ploshad =',s:4:4);readlnend.