# READ n; alg := 0; IF n < 2 THEN GOTO l6pp; alg := 1; i := 2; WHILE i < n DO BEGIN j := i; DO BEGIN j := j + i; IF j = n THEN BEGIN alg := 0; GOTO l6pp END END WHILE j < n; i := i + 1 END; l6pp: WRITE alg #