program iteracja-for;
uses crt;
var i:integer;
begin
  clrscr;
  for i:=1 to 5 do
  begin
    writeln(i);
  end;
  readkey;
end.