Viết chương trình nhập vào số tự nhiên n rồi kiểm tra xem n có là số nguyên tố hay không

Program chuongtrinh;

Uses crt;

Var n , i :Integer;

Begin

          clrscr;

          Write(‘Nhap vao gia tri cua n:’);

          Readln(n);

          if n<=1 then writeln(‘n da cho khong la so nguyen to’) else

          begin

                   i:=2;

                   while (n mod i<>0) do i:=i+1;

                   if i=n then writeln(‘ n da cho la so nguyen to’); else

                   writeln(‘n da cho khong la so nguyen to’);

                   end;

         readln

end.