27 lines
443 B
Text
27 lines
443 B
Text
|
MODULE Compare;
|
||
|
|
|
||
|
|
IMPORT In, Out;
|
||
|
|
|
||
|
|
VAR a,b: INTEGER;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
In.Int(a);
|
||
|
|
In.Int(b);
|
||
|
|
IF a < b THEN
|
||
|
|
Out.Int(a,0);
|
||
|
|
Out.String(" is less than ");
|
||
|
|
Out.Int(b,0);
|
||
|
|
Out.Ln;
|
||
|
|
ELSIF a = b THEN
|
||
|
|
Out.Int(a,0);
|
||
|
|
Out.String(" is equal to ");
|
||
|
|
Out.Int(b,0);
|
||
|
|
Out.Ln;
|
||
|
|
ELSIF a > b THEN
|
||
|
|
Out.Int(a,0);
|
||
|
|
Out.String(" is greater than ");
|
||
|
|
Out.Int(b,0);
|
||
|
|
Out.Ln;
|
||
|
|
END;
|
||
|
|
END Compare.
|