Дан радиус окружности. найти ее диаметр. (записать программу в pascal abc) . p.s. заранее !

Как сказал кто-то, действительно мощно:D
var
r,d:integer;
begin
writeln('введи значение радиуса ',r);
readln(r);
d:=r*2;
writeln('диаметр ',d);
end.