[pdp8.git] / sw / src / pascal / PRIMF.PS

PROGRAM PRIM(INPUT,OUTPUT);
VAR N,P: INTEGER;
BEGIN
READ(N);
WRITE(N," =");
P:=2;
WHILE P*P<N DO
      BEGIN
      WHILE N MOD P<>0 DO
            P:=P+1;
      REPEAT N:=N DIV P;
             WRITE(P:3);
             IF N>1
             THEN WRITE(" *")
      UNTIL N MOD P<>0
      END;
IF N>1
THEN WRITE(N:3)
END.
Commit	Line	Data
81e70d48 PH	1	PROGRAM PRIM(INPUT,OUTPUT);
	2	VAR N,P: INTEGER;
	3	BEGIN
	4	READ(N);
	5	WRITE(N," =");
	6	P:=2;
	7	WHILE P*P<N DO
	8	BEGIN
	9	WHILE N MOD P<>0 DO
	10	P:=P+1;
	11	REPEAT N:=N DIV P;
	12	WRITE(P:3);
	13	IF N>1
	14	THEN WRITE(" *")
	15	UNTIL N MOD P<>0
	16	END;
	17	IF N>1
	18	THEN WRITE(N:3)
	19	END.