a. Hướng dẫn: 
- Cho j =0.
- Cho biến I chạy từ 1 đến n.
-  Nếu I chẵn ( I chia 2 dư 0) thì in ra số n và tăng j lên 1
- Nếu j chia hết cho 15 thì thực hiện xuống dòng (Dùng Writeln).
b. Mã chương trình:
Program In_So_Le;
Uses crt;
var Dem,i,n: integer;
Begin
     Clrscr;
     Write('Nhap so n ='); readln(n);
     Dem:= 0;
     For i:=1 to n do if i mod 2 =1 then
     Begin Write(i:3,',');
     Dem:= Dem + 1;
     if Dem mod 15 = 0 then Writeln;
     end;
     readln
end.
 

 Tải tài liệu tại đây>>