задано натуральное число а. Является ли оно кратным 9?

program z1;var a:integer;beginwriteln ('vvedite chislo');readln(a);if a mod 9=0 thenwriteln ('da') elsewriteln ('net');end.