Паскаль:Найти кол-во двухзначных чисел, в записи которых встречается цифра 6

vara,b,i:integer;begina:=0;for i := 10 to 99 do    if (i mod 10=6) or (i mod 100 div 10 =6)  then  inc(a);  writeln(a);  readln;end.