[cash]

Сообщение от M.A.D.M.A.N.

Код:

function check (n: integer): boolean; // функция с булевым результатом
var // вар
  x: integer; // переменная
begin // начало ф-ии
  x := n; // кешируем число из агрумента
  check := true; // устанавливаем по дефлту результат функции в тру
  while x <> 0 do // бегаем в цикле до тех пор, пока число делится на 10
  begin
    if ((x mod 10) = 0) or (n mod (x mod 10) <> 0) then
      check:=false; // если делится нацело или n не делится нацело на результат деления нацело x на 10, то возвращаем фолс
    x := x div 10;
  end; // конец цикла
end; // конец ф-ии

не забываем про форматирование!

Спасибо большое ))))