Вводятся два целых числа. Выведите YES, если их сумма делится на 3, NO в ином случае.
Ввод Вывод

1 2 YES
Ввод Вывод

2 5 NO

Program abs;
var x,y,z:integer;
begin
readln(x);{первое число}
readln(y);{второе число}
z:=x+y;{их сумма}
if (z mod 3)=0 then
writeln(Yes)
else writeln(NO);
end.