Вычислить размеры геометрической фигуры (оператор 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.

begin
Var r:= 10;
Var a:= //Что либо
Var b:= //Что либо
Var c:= //Что либо
Case ReadChar('L - ... , S - ... , V - ...') of
'L': //Что либо
'S': //Что либо
'V': //Что либо
else //Что либо
end; 
end.

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

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.