Дано целое число. Определить является ли оно кратным 3. (написать программу)

Program kratnoe3;var x: integer;        Begin           Writeln('Введите целое число:  ');       readln(x);    if  (x mod 3) = 0 then         Writeln('Кратно 3-м!')  else        Writeln('Не кратно 3-м');  end.