Запиши программу для паскаль задача: дано трёхзначное число делится ли оно на 3?

Program CheckDivisibleBy3; var number: integer; begin writeln('Введите трехзначное число: '); readln(number);

if (number mod 3 = 0) then writeln('Число ', number, ' делится на 3.') else writeln('Число ', number, ' не делится на 3.'); end.

Успехов в изучении программирования!