Дано трехзначное число.Кратна ли 5 сумма его чисел.НАДО СДЕЛАТЬ ЧЕРЕЗ ПРОГРАММУ ПАСКАЛЬ(написать программу) помогите плиз

var a, sum : integer;beginreadln(a);    - считываем данное числоsum := (a div 100) + ((a mod 100) div 10) + (a mod 10); - сумма цифрif (sum mod 5 = 0) then writeln('yes') else writeln('no'); - проверка делимости на 5end.