Чему будет равно k после выполнения программы?
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.