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

Var a,  n, k: integer;

Begin
Write('Количество чисел - '); 
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.