еще одну пожалуйста =(
Program pasha;

const

pi=3.14;

var

N:integer;

Z:real;

R,D,L,S:real;

begin

Writeln('Введите номер
элемента N=');

readln(N);

Writeln('Введите значение
элемента Z=');

readln(Z);

case N of

1:begin

R:=Z;

D:=2*R;

L:=2*pi*R;

S:=pi*sqr(R);

Writeln('радиус R=',R);

Writeln('диаметр D=',D);

Writeln('длина L=',L);

Writeln('площадь круга S=',S);

end;

2:begin

R:=Z/2;

D:=2*R;

L:=2*pi*R;

S:=pi*sqr(R);

Writeln('радиус R=',R);

Writeln('диаметр D=',D);

Writeln('длина L=',L);

Writeln('площадь круга S=',S);

end;

3:begin

R:=Z/(2*pi);

D:=2*R;

L:=2*pi*R;

S:=pi*sqr(R);

Writeln('радиус R=',R);

Writeln('диаметр D=',D);

Writeln('длина L=',L);

Writeln('площадь круга S=',S);

end;

4:begin

R:=sqrt(Z/pi);

D:=2*R;

L:=2*pi*R;

S:=pi*sqr(R);

Writeln('радиус R=',R:2:0);

Writeln('диаметр D=',D:2:0);

Writeln('длина L=',L:2:2);

Writeln('площадь круга S=',S:2:2);

end;

else

Writeln('ошибка');

end;

Поясните пожалуйста задание

Нужно аналогичное задание или решить по другому ?

const  p = 3.14; //число "пи"var  N: byte;  R, D, L, S: real;begin {Сообщаем кратко данные задачи: }  writeln(' Пусть в окружности:');  writeln(' 1)R - радиус;');  writeln(' 2)D - диаметр;');  writeln(' 3)L - длина;');  writeln(' 4)S - площадь круга.');  writeln;  writeln(' Введите номер одной из величин (от 1 до 4):');  write('  N = ');  readln(N); //Вводим номер величины. {Здесь используем цикл. Запрашивается ввод до тех пор, пока номер N не будет лежать в диапазоне [1, 4]:}  while (N < 1)or(N > 4) do//Условие вхождения в цикл.   begin     writeln(' Такого номера здесь нет!');     writeln(' Введите другой номер (от 1 до 4):');     write('  N = ');     readln(N) //Снова вводим номер.   end;  writeln; {Сообщаем о том, какую величину мы ввели, а потом запрашиваем ввести её значение:}  write(' Это ');   case N of    1: begin         writeln('радиус окружности. Введите его значение:');         write('  R = ');         readln(R)        end;    2: begin         writeln('диаметр. Введите его значение:');         write('  D = ');         readln(D)        end;    3: begin         writeln('длина окружности. Введите её значение:');         write('  L = ');         readln(L)        end;    4: begin         writeln('площадь круга. Введите её значение:');         write('  S = ');         readln(S)        end           end;   writeln(' Тогда для остальных величин будем иметь:');  writeln; {Используя соотношения D = 2*R, L = 2*p*R, S = p*sqr(R),  выразим последовательно  три  величины через четвертую: }  case N of    1: begin{Здесь дано R. Находим D, L и S: }         writeln(' диметр: D = ', 2 * R);         writeln(' длина: L = ', 2 * p * R);         writeln(' площадь: S = ', p * sqr(R))        end;    2: begin{Здесь дано D. Находим R, L и S: }         writeln(' радиус: R = ', D / 2);         writeln(' длина: L = ', p * D);         writeln(' площадь: S = ', p * sqr(D / 2))       end;    3: begin{Здесь дано L. Находим R, D и S: }         writeln(' радиус: R = ', L / p / 2);         writeln(' диаметр: D = ', L / p);         writeln(' площадь: S = ', sqr(L) / p / 4 )        end;    4: begin{Здесь дано S. Находим R, D и L: }         writeln(' радиус: R = ', sqrt(S / p):7:4);         writeln(' диаметр: D = ', 2 * sqrt(S / p):7:4);         writeln(' длина: L = ', 2 * sqrt(p * S):7:4)       end           end end.