Составить программу в Паскаль:Дано трехзначное число определить делится ли оно на 3.Если да - вывести результат деления,если нет вывести фразу -"число не кратно 3".

Предыдущий
вопрос Следующий
вопрос

program DivideByThree;

var
number, result: integer;

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

if number mod 3 = 0 then
begin
result := number div 3;
writeln('Число ', number, ' кратно 3. Результат деления: ', result);
end
else
writeln('Число ', number, ' не кратно 3.');

end.