Add README.md

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

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