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

var a,i,crat: Integer;begin WriteLn('введите количество цифр');readln(a);for i:=1 to a dobeginRandomize();inc(i);writeln(i);if (i mod 10 =0) then inc(crat);end;writeln('количкство чисел кратных 10=',crat);end.