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