Что делает программа?

var i,n,k,s,a:integer;
begin
s:=0;
for i:=10 to 22 do
if i mod 10 = 2 then k:=k+1;
writeln\(s\);
end.