12 lines
317 B
Text
12 lines
317 B
Text
message "integer 1: ";
|
|
a1 := scantokens readstring;
|
|
message "integer 2: ";
|
|
a2 := scantokens readstring;
|
|
if a1 < a2:
|
|
message decimal a1 & " is less than " & decimal a2
|
|
elseif a1 > a2:
|
|
message decimal a1 & " is greater than " & decimal a2
|
|
elseif a1 = a2:
|
|
message decimal a1 & " is equal to " & decimal a2
|
|
fi;
|
|
end
|