File: MODTST.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM MODTEST(INPUT,OUTPUT);
VAR N: INTEGER;
BEGIN WHILE NOT EOF DO
        BEGIN READ(N); WRITELN(N, N MOD 4) END
END.

---