последовательно вводятся 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.{---Пример----}Количество чисел 51 15 7 8 7Количество чисел равных семи равно 2