Дан радиус окружности. Найти её диаметр.
(код Pascal)

А это не правильно?program diametr;uses crt;var r:real;beginclrscr;write('введите радиус');read(r);D:=L/π;write('D=',D:2:1);readln;end.

А вы в компиляторе это чудовище запускали? Оно хоть откомпилировалось? Nein. Это неправильно, диаметр- 2 радиуса

Все оказалось правильным, кроме формулы.

лол, ну ок:varr : integer;beginreadln(r);writeln(r*2);end;