3.1

var i, n: longint;

begin

  readln(n);

  for i := 1 to n

    if i mod 2 = 0 then writeln(i);

end.

3.2

var i, c, n: longint;

begin

  readln(n);

  c := 0;

  for i := 1 to n

  if i mod 2 = 1 then write(i, ' ');

  c := c + (i mod 2);

  if c = 15 then

  begin

    writeln();

    c := 0;

  end;

end.

Bài 3.1

Ý tưởng: Số chẵn là số chia hết cho 2, có nghĩa là chia 2 sẽ dư 0. 
Program sochan;

Uses crt;

Var n,i:integer;

Begin

  Clrscr;

  Readln(n);

  for i:=1 to n do

    if (i mod 2 = 0) then writeln(i); 

  Readln;

END.
Bài 3.2 

Ý tưởng: Số lẻ là số chia cho 2 dư 1. Tạo một biến dem để lưu số lần in. Nếu đếm =15 thì xuống dòng.

Program sole;

Uses crt;

Var n,i,dem:integer;

Begin

  Clrscr;

  readln(n);

  for i:=1 to n do

    if (i mod 2 <> 0) then

      Begin

        if (dem=15) then

         Begin

           writeln;

            dem:=0;

         End;

         writeln(i,' ');

         dem:=dem+1;

      End;

END.