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

Question

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

Answer 1

Лол, ну ок:
var
r : integer;
begin
readln(r);
writeln(r*2);
end;

Comments

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

---

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

---

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