uses crt; var N, i, n:integer; begin clrscr; writeln('Nhập số N: '); readln(N); i:=1; n:=0; if N = 1 then writeln(N, 'không phải là số nguyên tố.'); while i<=N do begin if (N mod i = 0) then n:=n+1; i:=i+1 end; if n = 2 then writeln(N, 'là số nguyên tố.') else writeln(N, 'không phải là số nguyên tố.'); readln; end. Đề: Viết chương trình nhận biết 1 số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? = Pascal Mik sai chỗ nào dị mí cou;-;?