посчитайте Информатика 9 класс.

program Circle;

var

a,i: byte;

r,d,l,s:real;

arr:Array[1. . 4] of string = ('радиус', 'диаметр', 'длина окружности', 'площадь круга');

begin

writeln('Вычислим три неизвестных параметра окружности, зная один. ');

writeln('Что будем вводить?');

for i:=1 to length(arr) do begin

writeln(i,' - ', arr[i]);

end;

while true do begin

write('Введите номер, со ствующий известному параметру: '); readln(a);

case a of

1: begin

write('Введите ', arr[a], ': '); readln(r);

d:=2*r;

l:=2*3. 14*r;

s:=3. 14*sqr(r);

break;

end;

2: begin

write('Введите ', arr[a], ': '); readln(d);

r:=d/2;

l:=2*3. 14*r;

s:=3. 14*sqr(r);

break;

end;

3: begin

write('Введите ', arr[a], ': '); readln(l);

r:=l/(2*3. 14);

d:=2*r;

s:=3. 14*sqr(r);

break;

end;

4: begin

write('Введите ', arr[a], ': '); readln(s);

r:=sqrt(s/3. 14);

d:=2*r;

l:=2*3. 14*r;

break;

end;

else writeln('Вы ввели неверное значение. Введите от 1 до ', length(arr), ' в со ствии со списком выше. . . ');

end;

end;

writeln('-------------------------');

writeln(' :');

for i:=1 to length(arr) do begin

if i <> a then begin

case i of

1: writeln(arr[i], ' = ', r:3:2);

2: writeln(arr[i], ' = ', d:3:2);

3: writeln(arr[i], ' = ', l:3:2);

4: writeln(arr[i], ' = ', s:3:2);

end;

end;

end;

writeln('-------------------------');

end.