поочередно вводятся 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, ' чисел одинаковых 7');

end.

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