«Дан радиус круга r=2, определите диаметр окружности».
Var
r, d: longint;
begin
r := 2;
d := 2 * r;
writeLn(d);
end.
r, d: longint;
begin
r := 2;
d := 2 * r;
writeLn(d);
end.
«Дан радиус круга r=2, определите диаметр окружности».