کتابخانه الکترونیک

; program aval

;var n:integer

;function   prime(n:integer):boolean

var

;sw:boolean

begin

sw:=true

for i:=1 to x div 2 do

if (x mod i =0) then

;sw:=false

;prime:=sw

;end

begin

;clrscr

for n:=100 to 999 do

if (prime(n)=true) then

;write(n:6)

end.