Bài 1 mình sửa lại từ jackychanh :
Program bt;
Var i,n,j : integer;
Begin
Write ('Nhap n:');Readln(n);
Write ('Cac so nguyen to nho hon ',n,' la:');
For i:=2 to n-1 do
Begin
j:=2;
...