Запустите интегрированную среду программирования . составьте программный код для задачи дан радиус круга r=2 определите диаметр круга
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.