begi writeln('Enter the first number: ') readln(firstNumber) writeln('Enter the second number: ') readln(secondNumber);
if firstNumber > secondNumber the writeln('The first number is greater: ', firstNumber else if secondNumber > firstNumber the writeln('The second number is greater: ', secondNumber els writeln('The numbers are equal.') end.
program CompareNumbers;
va
firstNumber, secondNumber: Integer;
begi
writeln('Enter the first number: ')
readln(firstNumber)
writeln('Enter the second number: ')
readln(secondNumber);
if firstNumber > secondNumber the
writeln('The first number is greater: ', firstNumber
else if secondNumber > firstNumber the
writeln('The second number is greater: ', secondNumber
els
writeln('The numbers are equal.')
end.