Дано четырехзначное натуральное число.определить является ли сумма первой и последней цифр кратной 3 паскаль

Var
  iNum: integer;
begin
  readln(iNum);
  writelniNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
end.