Дан радиус круга: r=2. оприделите диаметр кружности
4 (диаметр в 2 раза больше радиуса)
Если вам нужно составить программу, то вот:
program znanija;
var
r,d: integer;
begin
r := 2;
d := r*2;
writeln('Диаметр окружности = ',d)
end.