Bài 1: Viết phương trình
-Đọc từ tập 'BAITAP1.INP' một số nguyên dương N bất kì. Kiểm tra xem số đó có phải là số nguyên tố hay không? nếu có hãy ghi ra màn hình thông báo'N la so nguyen to' ngược lại thông báo 'N khong la so nguyen to'.(số nguyên tố là số chỉ có 2 ước số là 1 và chính nó)
Uses crt; Var dem,i,n: longint; op:text; Begin Clrscr; Assign(op,'baitap1.inp'); Reset(op); Read(op,n); For i:=1 to n do If n mod i=0 then dem:=dem+1; If dem=2 then writeln ('n trong tep la so nguyen to') Else writeln ('n trong tep khong phai la so nguyen to'); Close(op); Readln; End.