Ввести 2 числа. Вычесть из большего меньшее. (на языке паскаля)

Предыдущий
вопрос Следующий
вопрос

program Subtraction;
var
num1, num2, result: integer;
begin
writeln('Enter the first number: ');
readln(num1);
writeln('Enter the second number: ');
readln(num2);
if num1 > num2 then
result := num1 - num2
else
result := num2 - num1;
writeln('The result of subtraction is: ', result);
end.