FREE PASCAL
Viết chương trình tính tổng các số nguyên tố 
Yêu cầu: Viết chương trình nhập vào 2 số tự nhiên a,b (a>=2, a<b) và hãy tính tổng của tất cả các số nguyên tố từ a đến b. Dữ liệu vào: Hai số tự nhiên a,b được nhập từ bàn phím, có kiểm tra giá trị nhập . Kết quả ghi ra file văn bản tongnto.out là tổng của các số nguyên tố từ a đến b.
Để có file tongnto.inp thì viết câu lệnh sau: assign(f1,'Tongnto.inp');reset(f1);
'          '    tongnto.out thì viết câu lệnh sau: assign(f2,'tongnto.out');rewrite(f2);
VD: bài số lẻ nhỏ hơn hoặc bằng n