k:=10;
CASE k mod 3 OF
0: writeln′k=4m′'k=4m'′k=4m′;
1: writeln′k=4m+1′'k=4m+1'′k=4m+1′;
2: writeln′k=4m+2′'k=4m+2'′k=4m+2′;
3: writeln′k=4m=3′'k=4m=3'′k=4m=3′;
END.
будет выведено
k=4m+1
k:=10;
CASE k mod 3 OF
0: writeln′k=4m′'k=4m'′k=4m′;
1: writeln′k=4m+1′'k=4m+1'′k=4m+1′;
2: writeln′k=4m+2′'k=4m+2'′k=4m+2′;
3: writeln′k=4m=3′'k=4m=3'′k=4m=3′;
END.
будет выведено
k=4m+1