1 PROGRAM PRIMZAHLEN(INPUT,OUTPUT);
3 CONST NMAX=1000; WNMAX=32;
8 P: ARRAY[1..NMAX] OF INTEGER;
9 V: ARRAY[1..WNMAX] OF INTEGER;
12 WRITE("DIE ERSTEN N PRIMZAHLEN: N="); READ(N);
14 P[1] := 2; WRITE(2 :5); X := 1; LIM := 1; SQUARE := 4;
19 BEGIN V[LIM] := SQUARE;
20 LIM := LIM + 1;SQUARE := SQR(P[LIM])
23 WHILE PRIM AND (K<LIM) DO
24 BEGIN IF V[K]<X THEN V[K] := V[K] + P[K];
25 PRIM := (X<>V[K]); K := K+1
28 P[I] :=X; WRITE(X :7); IF I MOD 10 = 0 THEN WRITELN