Составьте программу, которая выводит на экран таблицу перевода n, n+1, n+2,... m дней количество недель.

vari, n, m: integer;beginreadln(n, m);for i := n to m dobegin  if (i mod 7 = 0) thenwrite(i div 7,' ')elsewrite(i div 7 + 1,' ');end;end.