Дано натуральне число. Виведіть YES, якщо воно кратне 3, або NO у іншому випадку.

ответ (на PascalABC.NET):

var

 your_number: integer;

begin

 begin

   writeln('PLEASE ENTER A NUMBER!');

   readln(your_number);

   if your_number <= 0 then writeln('ERROR! THE NUMBER MUST BE NATURAL!')

   else

   if your_number mod 3 = 0 then

     print('YES')

   else

       print('NO');

 end;

end.