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

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.