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

//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