из 457 в 14 :
1)стереть (45)
2)умножить на 2 (90)
3)стереть (9)
4)*2 (18)
5)*2 (36)
6)*2 (72)
7)стереть (7)
8)*2 (14).
из 167 в 10 :
1)*2 (334)
2)стереть (33)
3)*2 (66)
4)*2 (132)
5)стереть (13)
6)*2 (26)
7)*2 (56)
8)стереть (5)
9)*2 (10).
В скобках числа которые получаються)))
var a,b:integer;
begin
readln(a,b);
if(a mod 2 = 0) and (a > b) then
writeln('Наибольшее, четное число: ',a)
else begin
if(b mod 2 = 0) and (b > a) then
writeln('Наибольшее четное число: ',b)
else
writeln('Не найдено');
end;
end.