Составьте программу на языке паскаль которая в зависимости от введенного символа 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.