Составить программный код для задачи: "дан радиус круга r=2, определите диаметр окружности" в паскале

Program diametr;

var R,d:integer;

begin

   R:=2;

   d:=(2*R);

   writeln('Диаметр окружности равен: ', d);

end.