program InSoTu1DenN;

var
  n, i: Integer;

begin
  write('Nhap vao so nguyen n: ');
  readln(n);
  
  write('Cac so tu 1 den ', n, ': ');
  for i := 1 to n do
  begin
    write(i);
    if i < n then
    begin
      write('; ');
    end;
  end;
end.