Дан фрагмент программы. Что появится на экране в результате выполнения?

var k,m,n:integer;

begin

k:=0;

for m:=1 to 10 do begin

n:=trunс(m/4);

if n>=m mod 3 then k:=k+1;

end;

writeln(k);