VD : Kiểm tra một số có phải là nguyên tố hay không
VAR x:LONGINT;
FUNCTION Ngto(x:INTEGER):BOOLEAN;
VAR j: INTEGER;
BEGIN
Ngto:=TRUE;
IF x <=1 THEN Ngto:=FALSE ELSE
  FOR j:=2 TO Trunc(Sqrt(x)) DO
          IF x MOD j = 0 THEN BEGIN
                                         Ngto:=FALSE; exit; END;
END;
BEGIN 
Readln(x);
IF ngto(x) THEN Write(' La so nguyen to') ELSE write(' KHong phai nguyen to ') ; readln;
END.