Дан радиус круга:r=2определите. Диаметр круга

var D,R:integer;

begin

writeln('Введите значение R: ');

readln(r);

D:=2*R;

writeln('D = ',D);

end.

это программа,а если надо было без неё,то D = 2 * R

D= 2*2=4