Question

Дан радиус окружности, Найти диаметр
Решить в PascalABC

Answer 1

Ну лооол, ребята, радиос - половина диаметра.
var
  r : longint;
begin
  read (r);
  write (r*2);
end.