Дан радиус R окружности По желанию пользователя вычислить диаметр d окружности

//PascalABC.NET 3.2 сборка 1318

Var
  r:real;
  c:char;
begin
readln(r);
writeln('Поперечник, длина c окружности или площадь? d/l/s');
repeat
readln(c);
until (c='l') or (c='s') or (c='d');
case c of
    'l':writeln(6,28*r);
    's':writeln(3,14*sqr(r));
    'd':writeln(r*2);
  end;
end.

Пример ввода:
3
d
Пример вывода:
6