Case 12. Элементы окружности пронумерованы следующим образом: 1-радиус, 2-диаметр D=2*R, 3-длина L= 2*pi*R, 4-площадь круга S= pi*R2. Дан номер одного из этих элементов и его значение. Вывести значение остальных элементов данной окружности (в том же порядке). В качестве значения pi использовать 3,14.


Нужно эту задачу решить в ПАСКАЛЕ.

Program abc;constpi=3.14;varN:integer;Z:real;R,D,L,S:real;beginWriteln('Введите номер элемента N=');readln(N);Writeln('Введите значение элемента Z=');readln(Z);case N of1:beginR:=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:beginR:=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:beginR:=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:beginR:=sqrt(Z/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;else Writeln('ошибка');end;end.