program Vvod_Vivod;

var

  i, k, n, t: integer;
  f: text;
  l: string;

begin
  writeln('Введите кол-во элементов');
  readln(n);

  assign(f, 'output.txt');
  rewrite(f);
  for i := 1 to n do
  begin
   if (t mod 5 = 1) or (t mod 5 = 2) then
      k := k + 1;
      t := (i * i - i + 1);
    writeln(f, t);
  end;
  close(f);
  Writeln('Кол-во элементов, у которых при делении на 5 остаток 1 или 2: ', k);
end.