Известны следующие признаки делимости числа N. Для делимости на 5 необходимо, чтобы последняя цифра числа была 0 или 5. Описать процедуру проверки признаков делимости. Проверить их для различных значений N. Предмет (Программирование) на Pascal ABC

Var N, lastNum, mod5: integer;
  flag: boolean;
begin
  readln(N);
  lastNum := N mod 10;
  mod5 := N mod 5;
  flag := (lastNum = 5) or (lastNum = 0);
  if flag then
    writeln(Число , N, делится на 5 по признаку делимости)
  else
    writeln(Число , N, не делится на 5 по признаку делимости);
  if (mod5 = 0) then
    writeln(Число , N, делится на 5 по определению)
  else
    writeln(Число , N, не делится на 5 по определению);
  flag := flag xor (mod5 = 0);
  if flag then
    writeln(Результаты не совпадают, это не признак делимости!)
  else
    writeln(Результаты совпадают, это возможно признак делимости)
end.