Прога,которая определяет количество чисел,оканчивающихся на 5,прога получает на вход кол во чисел ,а затем сами числа ,программа должна вывести одно число-количество чисел оканчивающихся на 5

Var    N,p,i :longint;    X :array[1..100] of integer;begin  ReadLn(N);  for i:=1 to n do begin read(x[i]); if x[i] mod 10 = 5 then p := p + 1 end; writeln (p); end.