Найти количество двузначных четных чисел кратных 8. Это в паскале

var a,k: integer; begin a:=1; k:=0; while (a<>0) do begin if ((a<100) and (a>9) and (a mod 8 =0)) then k:=k+1; end; writeln(k); end.