, с Паскалем Пользователь вводит неотрицательное однозначное число A. Написать программу:вычисляющую в случае ввода 1 — площадь круга

Умоляю, помогите с Паскалем
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.