uses crt;

var
i:integer;
out5:text;

begin

assign(out5,'out5.txt');
  rewrite(out5);

for i:=1 to 5 do
   writeln(out5,i);

close(out5);

end.