Составить программу Паскаль: Вводится 2 целых числа,найти наибольшее из них

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

program MaxNumber;

var
num1, num2, max: integer;

begin
writeln('Введите два целых числа:');
readln(num1, num2);

if num1 > num2 then
max := num1
else
max := num2;

writeln('Наибольшее из введенных чисел: ', max);
end.