Составить программу, которая упорядочивает 2 числа по убыванию и находит максимальное из них.

program zz1;

var a, b:integer; / / заводим переменные

begin

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

read (a);

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

read (b);

if a>b then writeln (a,' ', b) else writeln (b,' ', a); / /проверяем какое число больше и выводим числа по убыванию

if a>b then write (' максимальное число = ', a) else write (' максимальное число = ', b); //проверяем какое число больше и выводим максимальное число из двух

end.