Question

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

Answer 1

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

Answer 2

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

program znanija;

var

r,d: integer;

begin

r := 2;

d := r*2;

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

end.