var n:integer;

begin

Writeln('Введите количество дней: ');

  Read(n);

  Writeln(n, ' дней(я) = ', n div 7, ' недель ', n mod 7, ' дней(я)');

end.