RosettaCodeData/Task/Integer-comparison/Pascal/integer-comparison.pascal
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

14 lines
327 B
Text

program compare(input, output);
var
a, b: integer;
begin
write('Input an integer number: ');
readln(a);
write('Input another integer number: ');
readln(b);
if (a < b) then writeln(a, ' is less than ', b);
if (a = b) then writeln(a, ' is equal to ', b);
if (a > b) then writeln(a, ' is greater than ', b);
end.