Написать алгоритм: Даны 2 числа a и b оба вводятся с клавиатуры, написать алгоритм нахождения наибольшего из них

program zz1;

var a, b:integer; / / вводим переменные целого типа

begin

write (' введите первое заданное число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе заданное число '); / / вводим с клавиатуры второе число

read (b);

if b > a / / проверяем условие, если второе введенное число больше первого числа, то

then write (' наибольшее число среди двух введенных = ', b) / / выводим один ответ

else write (' наименьшее число среди двух введенных = ', a); / / иначе, выводим другой ответ

end.