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

program znanija;

var

r,d: integer;

begin

r := 2;

d := 2*r;

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

end.

Program n_1;

var r, d:integer;

begin

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

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

end.