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

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