Дано трехзначное число.кратна ли 5 сумма его чисел.надо сделать через программу паскаль(написать программу)

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