PROCEDURE ERAST(NYUURYOKU:INTEGER); CONST GENDO=10000; VAR FIND_S:ARRAY[2..GENDO] OF BOOLEAN; COUNT,INSUU,BAISUU:0..GENDO; BEGIN FOR INSUU:=2 TO NYUURYOKU DO FIND_S[INSUU]:=TRUE; INSUU:=1; FOR COUNT:=1 TO NYUURYOKU-1 DO BEGIN INSUU:=INSUU+1; IF FIND_S[INSUU] THEN BEGIN WRITE(INSUU:5); FOR BAISUU:=1 TO NYUURYOKU DIV INSUU DO IF FIND_S [INSUU*BAISUU] THEN BEGIN FIND_S[INSUU*BAISUU]:=FALSE; END END END END;