Пусть элементами круга является радиус(первый элемент), диаметр(второй элемент) и длина окружности(третий элемент). Составит программу,которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга — Pascal(Паскаль)

program P1;
var
  N:integer;
  S,v:real;
begin
  repeat
  writeln('Выберите действие 1-радиус, 2-диаметр, 3-длина окружности');
  Readln(N);
  until n in [1..3];
  case N of
    1:begin
        Write('Введите радиус : ');
        Readln(v);
        S:=pi*v*v;
      end;
    2:begin
        Write('Введите диаметр : ');
        Readln(v);
        S:=pi*v*v/4;
      end;
    3:begin
        Write('Введите длину окружности : ');
        Readln(v);
        S:=v*v/(4*pi);
      end;
  end;
  Writeln('Площадь круга = ',S:0:2)
end.