Пример кода на Pascal:

program PrintNumbers;
var
num1, num2: Integer;
begin
num1 := 10;
num2 := 20;
writeln('Число одно большее другое меньшее:');
if num1 > num2 then
writeln('Большее число: ', num1, ', Меньшее число: ', num2)
else
writeln('Большее число: ', num2, ', Меньшее число: ', num1);
end.

При запуске этой программы будет выведено одно число большее другого, согласно значениям переменных num1 и num2.