viết phương trình nhập vào 1 số nguyên N. Kiểm tra N a)Là số chẵn hay lẽ. b) Có phải là số nguyên tố hay ko

program ct;

uses crt;

var i,n,d:integer;

begin clrscr;

   write('Nhap so n: '); readln(n);

   if n mod 2=0 then writeln(n,' la so chan')

                          else writeln(n,' la so le');

     d:=0;

   for i:=1 to n do

     if n mod i =0 then d:=d+1;

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

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

readln;

end.

Học tốt!

program ct;

uses crt;

var d,i,n:integer;

begin

 clrscr;

  write('nhap mot so nguyen:=');readln(n);

  {-------- cau a -------}

      if n mod 2=0 then writeln(n,' la so chan')

                              else writeln(n,' la so le')

  {-------- cau b-------}

     d:=0;

       for i:=1 to n do 

          if n mod i=0 then d:=d+1;

          if d=2 then writeln(n,' la so nguyen to') else writeln(n,' khong phai so nguyen to');

  readln

  end.