PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger;

 var m := Max(n div 10, n mod 10);

 m *= 11;

 if m < n then Println('NO')

 else Println(m - n)

end.

13

20