Вычислить площадь круга

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