Написать программу которая среди введённых чисел ищет и считает числа кратные 5 )помогите пожалуйста))

а это точно правильно??

а что значит введите число номер?

var i,n,a,b,s:integer;beginwriteln('Введите количество чисел в последовательности');readln(n);for i:=1 to n do beginwriteln('Введите число номер ', i); read(b);if b mod 5 = 0 then s:=s+1;end;writeln('Чисел кратных 5:',s);end.