Найти наибольшее из трёх чисел (3 числа вводим с клавиатуры). Паскаль. Через while. С комментариями. Желательно попроще.

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

program MaxNumber;

var
num1, num2, num3, max: integer;

begin
// вводим три числа с клавиатуры
write('Введите первое число: ');
readln(num1);

write('Введите второе число: ');
readln(num2);

write('Введите третье число: ');
readln(num3);

// предполагаем, что первое число - наибольшее
max := num1;

// сравниваем второе число с максимальным
if num2 > max then
max := num2;

// сравниваем третье число с максимальным
if num3 > max then
max := num3;

// выводим наибольшее число
writeln('Наибольшее число: ', max);

end.