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ó)

Pprogram bai_lam;

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.

uses crt;
var n,i,d: integer;
f:text;
begin

clrscr;
assign(f,'baitap1.inp');
reset(f);
read(f,n);

for i:=1 to n do

if n mod i=0 then inc(d);

if d=2 then writeln (n,' la so nguyen to')

else writeln (n,' khong phai la so nguyen to');

close(f);
readln;
end.