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

uses crt;
const p=3.14;
var r,d,l,s:real;
    c:char;
begin
clrscr;
repeat
clrscr;
writeln('Определить элементы окружности');
writeln('1-по радиусу');
writeln('2-по диаметру');
writeln('3-по длине окружности');
writeln('4-по площади');
writeln('Другие клавиши - выход.');
readln(c);
case c of
'1':begin
    write('Введите радиус r=');
    readln(r);
    writeln('Диаметр=',2*r:0:2);
    writeln('Длина окружности=',2*p*r:0:2);
    writeln('Площадь=',p*r*r:0:2);
    readln;
    end;
'2':begin
    write('Введите диаметр d=');
    readln(d);
    writeln('Радиус=',d/2:0:2);
    writeln('Длина окружности=',p*d:0:2);
    writeln('Площадь=',pi*d*d/4:0:2);
    readln;
    end;
'3':begin
    write('Введите длину окружности l=');
    readln(l);
    writeln('Радиус=',l/(2*p):0:2);
    writeln('Диаметр=',l/p:0:2);
    writeln('Площадь=',l*l/(4*p):0:2);
    readln;
    end;
 '4':begin
     write('Введите площадь s=');
     readln(s);
     writeln('Радиус=',sqrt(s/p):0:2);
     writeln('Диаметр=',2*sqrt(s/p):0:2);
     writeln('Длина окружности=',2*p*sqrt(s/p):0:2);
     end;
else exit;
end;
until not(c in ['1'..'4']);
end.