написать код программы на Pascal кратное 5

Вот пример программы на Pascal, которая проверяет, является ли введённое число кратным 5:

program CheckMultipleOfFive;

var
  number: Integer;

begin
  Write('Введите число: ');
  ReadLn(number);
  
  if (number mod 5 = 0) then
    WriteLn('Число ', number, ' является кратным 5.')
  else
    WriteLn('Число ', number, ' не является кратным 5.');
  
  ReadLn; // чтобы окно консоли не закрылось сразу
end.

Эта программа запрашивает у пользователя ввод числа, затем проверяет, кратно ли оно 5 с помощью операции остатка от деления (mod). Если остаток равен 0, значит, число кратно 5, и программа выводит соответствующее сообщение.