Оно на всех неправильное ось симетрии должа делить предмет ровно на пополам
Var a,b:integer;
begin
readln(a,b);
if a>b then write(a)
else write(b)
end.
Сканер - устройство ввода информации, остальные вывод информации <span />
1*10^1+3*10^0+2*10^-1+1*10^-2
1*8^2+2*8^1+3*8^0+2*8^-1
1*16^1+2*16^0+3*16^-1