aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Integer-comparison/Modula-3/integer-comparison.mod3 Normal file
View file

@ -0,0 +1,18 @@
MODULE Main;
FROM IO IMPORT Put, GetInt;
FROM Fmt IMPORT Int;
VAR a,b: INTEGER;
BEGIN
a := GetInt();
b := GetInt();
IF a < b THEN
Put(Int(a) & " is less than " & Int(b) & "\n");
ELSIF a = b THEN
Put(Int(a) & " is equal to " & Int(b) & "\n");
ELSIF a > b THEN
Put(Int(a) & " is greater than " & Int(b) & "\n");
END;
END Main.