какой будет результат кода?
...
S:=0;
for i:=1 to 10 do
begin
m1:= i mod 2;
m2:= i mod 3;
if (m1=1) or (m2=0)
then s:=s+1;
end;
writeln(s);