[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.
Commit	Line	Data
	1	PROGRAM MODTEST(INPUT,OUTPUT);
	2	VAR N: INTEGER;
	3	BEGIN WHILE NOT EOF DO
	4	BEGIN READ(N); WRITELN(N, N MOD 4) END
	5	END.