begin
  for var i:=1 to 10 do
    writeln(i);
  for i:integer := 1 to 10 do
    writeln(i);
end.