Question

Что эта программа делает? Program v1;
Var k,i:integer;
Begin
k:=0;
If i mod 3=0 then k:=k+1;
Writeln(k);
End.