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

//PascalABC.NET 3.2 сборка 1318Var  r:real;  c:char;beginreadln(r);writeln('Диаметр, длина c окружности или площадь? d/l/s');repeatreadln(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.Пример ввода:3dПример вывода:6