program BaiTap;
var
  n, i: integer;
begin
  write('Nhap so nguyen n: ');
  readln(n);
  
  // In ra day so tu 1 den n
  writeln('Day so tu 1 den n:');
  for i := 1 to n do
    write(i, ' ');
  writeln;
  
  // In ra cac so chan tu 1 den n
  writeln('Cac so chan tu 1 den n:');
  for i := 1 to n do
    if i mod 2 = 0 then
      write(i, ' ');
  writeln;
  
  // In ra cac so le tu 1 den n
  writeln('Cac so le tu 1 den n:');
  for i := 1 to n do
    if i mod 2 = 1 then
      write(i, ' ');
  writeln;
  
  // In ra cac so khong chia het cho 5 tu 1 den n
  writeln('Cac so khong chia het cho 5 tu 1 den n:');
  for i := 1 to n do