запустите интегрированную среду программирования . составьте программный код для задачи дан радиус круга r=2 определите диаметр круга

Program n_1;

var r, d:integer;

begin

   r:=2; d:=r*2;

   writeln('Диаметр круга равен ',d);

end.