Известныследующие признаки делимости числа N. Для делимости на 5 нужно, чтобы

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.