Решение
var
x, y, z: integer;
begin
readln(x, y, z);
if (x+y+z)>(x*y*z) then write(x+y+z) else write(x*y*z);
end.
Если есть вопросы, пиши.
I1 = 5 бит / 1 символ
i2 = 6 бит / 1 символ
6/5 = 1,2 раза.
В 1.2 раза различаются инф. объемы текстов.
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.