Даны два целых числа. Написать программу, которая выводит эти
числа в порядке убывания. Для решения используйте составной
оператор
IF <условие> then begin <операторы> end;
Пример работы программы:
Ввод: А=5, В=13
Вывод: 13, 5

Первая: program qwer; uses crt; var i, kol : integer; begin kol : = 10; for i : = 10 downto 1 do begin writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят резвились на просторе.'); writeln(kol,' один из них утоп – его сложили в гроб,'); kol : = kol - 1; writeln('и вот вам результат – ',kol,' поросят…'); end; end. вторая:   program qwer; uses crt; var i, pr, n : integer; begin readln(n); pr : = 1; for i : = 1 to n do pr : = pr * i; write(pr); end.третья: program qwer; uses crt; var s, i : integer; begins : = 115; for i : = 1 to 9 dowriteln(i * 100,'г = ',i * 100 * s / 1000,'руб'); end.готово! 

'microsoft qbasic cls for a = 1 to 9 for b = 0 to 9 for c = 0 to 9 for d = 1 to 9     n1 = 1000 * a + 100 * b + 10 * c + d     n2 = 10 * a + c     n3 = 10 * d + b     if n1 = n2 * n3 * 4 then           print a; b; c; d; " = "; a; c; " * "; d; b; " * 4"     end if next d next c next b next a результат выполнения программы:   1  9  7  2  =  1  7  *  2  9  * 4   5  4  7  2  =  5  7  *  2  4  * 4   8  6  3  2  =  8  3  *  2  6  * 4