Какой ответ будет на экране в результате выполнения программы?

var k,m:integer;

begin

k:=0;

for m:=1 to 10 do begin

if (m mod 3) <> (m mod 5) then k:=k+1;

end;

write(k);