Ответ:

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');

readln(n);

k:=0;

For i:=1 to n do begin

readln (a);

if (a mod 10 =5) and (a < 100) then k:=k+1;

end;

Writeln('Количество чисел кратных 5 - ',k);

End.