Дано второе число если сумма цифр числа больше произведения этих чисел больше или равна произведению этих цифр то вывести эти цифры иначе вывести произведения этих цифр

Var a,b,c:integer; Begin Read(a); B:=a div 10; C:=a mod 10: If ( (c+b) >= (c*b) ) then writeln(b,c) else writrln(c*b);