дан радиус круга: r=2. оприделите диаметр кружности​

4 (диаметр в 2 раза больше радиуса)

Если вам нужно составить программу, то вот:

program znanija;

var

r,d: integer;

begin

r := 2;

d := r*2;

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

end.