Составьте программу на языке паскаль которая в зависимости от введенного символа c,s,w программа вычисляет длину окружности,

program calc;

uses crt;

var s: char;

r, d, h: real;

begin

repeat

ClrScr;

writeln();

writeln(\'Вычислить:\');

writeln(\'длину окружности:  с\');

writeln(\'площадь круга: s\');

writeln(\'объем цилиндра: w\');

writeln(\'Выйти из программы: z\');

readln(s);

case s of

\'c\': begin

writeln(\'Радиус окружности: \');

readln(r);

Writeln(\'Длина окружности: \', (2 * pi * r) : 6 : 2)

end;

\'s\': begin

writeln(\'Радиус круга: \');

readln(r);

Writeln(\'Площадь круга: \', (2 * pi * r) : 6 : 2)

end;

\'w\': begin

writeln(\'Диаметр и высота цилиндра через пробел: \');

readln(d, h);

Writeln(\'Объем цилиндра: \', ((pi *d *d * h)/4):6:2)

end

end;

writeln(\'Продолжение - Ентер\');

readln();

until s =\'z\'

end.