Var a, b: Integer;
begin
ReadLn(a, b);
if a>b then WriteLn(a)
else WriteLn(b);
end.
-------------------------
Это если консольное. Если графическое приложение - тогда приношу свои извинения.
Максимальная мощность алфавита = 2^5 = 32;
минимальная мощность алфавита = 2^4+1 = 17.
Значение выражения в десятичной - 7689
После перевода в пятеричную - 221224
ответ: 1
Для перевода делим число на пять, записывая остатки от деления в обратном порядке.
7689/5 --> 4
1537/5 --> 2
307/5 --> 2
61/5 --> 1
12/5 --> 2
2 --> 2
1, 1, 1, 2, 1
Изменение значения: 11, 9, 7, 5, 15, 13.