Делится ли среднее арифметическое трёх цифр на последнее из них без остатка. (pascal)

Var a,b,c:integer;
begin
readln(a,b,c);
if ((a+b+c) div 3) mod c =0 then writeln('YES')
else writeln('NO');
end.