Последовательно вводятся n целых чисел. найти количество семерок в последовательности.

Var
  n, q, v, i: integer;
begin
  writeln('Введите количество чисел, которые вы будете вводить');
  readln(n);
  q:=0;
  for i:=1 to n do begin
    writeln('Введите целое число');
    readln(v);
    if v=7 then Inc(q);
  end;
  writeln('В введённой вами последовательности ', q, ' чисел равных семи');

end.

{---Пример}
Количество чисел 5
1 15 7 8 7
Количество чисел равных семи равно 2