// PascalABC.NET 3.2, сборка 1359 от 11.12.2016// Внимание! Если программа не работает, обновите версию!begin var b:=BigInteger.Parse(ReadlnString('Введите натуральное число:')); Writeln(b mod 3=0?'Любить!':'Не любить')end.ПримерыВведите натуральное число: 437698996754633421436470300745368495356906343236523233Не любитьВведите натуральное число: 12345678901234567890123456789012345678901234567890Любить!