var n:integer;
begin
Writeln('Введите количество дней: ');
Read(n);
Writeln(n, ' дней(я) = ', n div 7, ' недель ', n mod 7, ' дней(я)');
end.
var n:integer;
begin
Writeln('Введите количество дней: ');
Read(n);
Writeln(n, ' дней(я) = ', n div 7, ' недель ', n mod 7, ' дней(я)');
end.