23 lines
355 B
Text
23 lines
355 B
Text
|
MODULE IntCompare;
|
||
|
|
|
||
|
|
IMPORT InOut;
|
||
|
|
|
||
|
|
VAR
|
||
|
|
A, B: INTEGER;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
InOut.ReadInt(A);
|
||
|
|
InOut.ReadInt(B);
|
||
|
|
InOut.WriteInt(A, 1);
|
||
|
|
|
||
|
|
IF A < B THEN
|
||
|
|
InOut.WriteString(' is less than ')
|
||
|
|
ELSIF A = B THEN
|
||
|
|
InOut.WriteString(' is equal to ')
|
||
|
|
ELSE
|
||
|
|
InOut.WriteString(' is greater than ')
|
||
|
|
END;
|
||
|
|
InOut.WriteInt(B, 1);
|
||
|
|
InOut.WriteLn
|
||
|
|
END IntCompare.
|