MODULE Prima;
IMPORT Display;
PROCEDURE ProgMain*;
VAR i, j: INTEGER;
isprim: BOOLEAN;
BEGIN
Display. WriteStr ("Die Primzahlen bis 200 sind: ");
FOR i:=2 TO 200 DO
isprim:=TRUE;
j:=2;
WHILE (isprim) & (j<i) DO
IF i MOD j=0
THEN isprim:=FALSE;
END;
j:=j+1;
END;
IF isprim THEN
Display. WriteInt (i, 5);
END;
END;
REPEAT UNTIL Display.KeyPressed();
END ProgMain;
END Prima.