program znanija;
var
r,d: integer;
begin
r := 2;
d := 2*r;
writeln('Диаметр круга = ', d);
end.
Program n_1;
var r, d:integer;
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
