дано n чисел. найти количество кратных 10

Var a,  n, k: integer;BeginWrite('Количество чисел - '); readln(n);k:=0;For var i:=1 to n do begin read(a); if (a mod 10 =0) then k:=k+1; end;Writeln(k);End.