Составьте программу на языке Pascal используя служебное слово case. В зависимости от введённого символа L, S, V программа должна вычислять длину окружности; площадь круга; объём цилиндра.

program CalculateFigureParameters;

var symbol: char; radius, length, area, volume: real;

begin readln(symbol);

case symbol of 'L': begin write('Введите радиус: '); readln(radius); length := 2 * pi * radius; writeln('Длина окружности: ', length:0:2); end; 'S': begin write('Введите радиус: '); readln(radius); area := pi * sqr(radius); writeln('Площадь круга: ', area:0:2); end; 'V': begin write('Введите радиус: '); readln(radius); write('Введите высоту: '); readln(height); volume := pi * sqr(radius) * height; writeln('Объём цилиндра: ', volume:0:2); end; end; end.