По заданному номеру и значению вычислить значения всех остальных элементов треугольника

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

uses crt;
var c:char;
    k:integer;
begin
clrscr;
writeln('Введите последовательность символов, том числе буква w');
writeln('окончание ввода Z или z');
k:=0;
repeat
readln(c);
if c='w' then k:=k+1;
until c in ['Z','z'];
write('Количество букв w=',k);
readln
end.