var
  outFile : file of integer;
  i : integer;
begin
  assign(outFile, 'integer.dat');
  rewrite(outFile);
  i := 7;
  while (i > 0) do
    begin
      write(outFile, i);
      i := i - 1
    end;
  close(outFile)
end.