Вычислить размеры геометрической фигуры (оператор case) - PascalABC.NET

Формулировка задачи:

Задание: В зависимости от введённого символа L,S,V (при r=10), программа должна вычислить длину окружности, площадь круга или обём сферы. Использовать оператор case. Сделал так:

var r,m:integer;
    a,b,c:real;
begin
  r:=10;
  a:=2*3.14*r;
  b:=3.14*Sqr(r);
  c:=4/3*3.14*power(2,3);
  writeln('Введите данные, которые вы хотите найти: 1 - длина окружности,2 -площадь круга, 3-объём сферы.');
  readln(m);
  case m of
  1:writeln('длина окружности ',a);
  2:writeln('площадь круга ',b);
  3:writeln('объём сферы ',c);
  else writeln('некорректный ввод');
end;
end.

Но нужно вместо 1,2,3 указать L,S,V как это сделать ?

Решение задачи: «Вычислить размеры геометрической фигуры (оператор case)»

Листинг программы

var r:integer;
    a,b,c:real; m:char;
begin
  writeln('Введите длину радиуса');
  readln(r);
  a:=2*pi*r;
  b:=pi*Sqr(r);
  c:=4/3*pi*power(r,3);
  writeln('Введите данные, которые вы хотите найти: L длина окружности,S площадь круга, V объём сферы.');
  readln(m);
  case m of
  'L':writeln('длина окружности ',a);
  'S':writeln('площадь круга ',b);
  'V':writeln('объём сферы ',c);
  else writeln('некорректный ввод');
end;
end.

Объяснение кода листинга программы

Переменная r объявлена как целочисленная и используется для хранения значения радиуса.
Переменные a, b и c объявлены как вещественные и используются для хранения вычисленных значений длины окружности, площади круга и объема сферы соответственно.
Переменная m объявлена как символьный тип и используется для хранения введенного пользователем обозначения (L, S или V).
Ввод значений осуществляется с помощью функции readln. Значение переменной r считывается вводом пользователя, а значение переменной m считывается после ввода пользователем числового значения.
Значение переменной a вычисляется как произведение числа π на радиус, умноженное на 2.
Значение переменной b вычисляется как произведение числа π на квадрат радиуса.
Значение переменной c вычисляется как произведение числа 4/3 на число π, умноженное на куб радиуса.
После ввода пользователем обозначения (L, S или V), выполняется проверка этого значения с помощью оператора case.
Если значение переменной m равно 'L', то выводится значение переменной a.
Если значение переменной m равно 'S', то выводится значение переменной b.
Если значение переменной m равно 'V', то выводится значение переменной c.
Если значение переменной m не равно 'L', 'S' или 'V', то выводится сообщение об ошибке.