определение большого числа из двух не равных чисел введеный с клавеатуры

var

a, b : integer; / / объявление переменных

begin

write ('Введите два целых числа: '); / / вывод на экран текстовой строки

readln (a, b); / / считываем значение переменных, введенных с клавиатуры

if (a = b) then / / выполняется если введенные числа равны

writeln ('Число ', a, ' равно числу ', b) / / вывод на экран текстовой строки

else / / выполняется если числа не равны

begin

if (a > b) then / / выполняется если а > b

writeln ('Число ', a, ' больше числа ', b) / / вывод на экран текстовой строки

else / / выполняется если а < b

writeln ('Число ', a, ' меньше числа ', b) / / вывод на экран текстовой строки

end

end.