program InSoChan;

procedure InSoChan(n: integer);
var
  i: integer;
begin
  for i := 2 to n do
  begin
    if i mod 2 = 0 then
      writeln(i);
  end;
end;

var
  n: integer;
begin
  // Nhập số nguyên n từ người dùng
  write('Nhập số nguyên n: ');
  readln(n);

  writeln('Các số chẵn từ 1 đến ', n, ' là:');
  InSoChan(n);
end.