Вводятся два целых числа. выведите 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.