Радиус окружности, вписанной в равносторонний треугольник - Pascal

uses crt;
var n:char;
    r,a,h,s:real;
begin
clrscr;
write('Введите радиус окружности, описанной около рвностороннего треугольника R=');
readln(r);
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-вычислить длину стороны треугольника');
writeln('2-вычислить высоту треугольника');
writeln('3-вычислить площадь треугольника');
writeln('другое - выход');
readln(n);
case n of
'1':begin
    a:=r*sqrt(3);
    write('a=',a:0:2);
    readln
    end;
'2':begin
    h:=3*r/2;
    write('h=',h:0:2);
    readln
    end;
'3':begin
    s:=3*sqrt(3)*r*r/4;
    write('S=',s:0:2);
    readln
    end;
else exit;
end;
until not (n in ['1'..'3']);
end.