Nhận biết số nguyên tố

PROGRAM CT47;
USES crt;
VAR
BEGIN
Writeln('Chuong trinh nhan biet so nguyen to');
Write('Nhap vao so nguyen de kiem tra nhe ! : '); Readln(x);
IF x<=1 THEN Write(x,' khong phai la so nguyen to ')
ELSE
BEGIN
i:=2
WHILE (n MOD i <> 0) DO i:=i+1;
IF i=n THEN writeln(n,' la so nguye nto !');
ELSE writeln(n,' khong phai la so nguye nto !');
END;
readln
END.

Download: http://www.mediafire.com/?45nir89zxh4t7o3