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

Var a, i, crat: Integer;

begin

WriteLn ('введите количество цифр') ;

readln (a) ;

for i:=1 to a do

begin

Randomize () ;

inc (i) ;

writeln (i) ;

if (i mod 10 = 0) then inc (crat) ;

end;

writeln ('количкство чисел кратных 10=', crat) ;

end.