uses crt;
var d, n: integer;
begin
clrscr;
writeln('Введите кол-во дней');
read(d);
n := d div 7; d2 := d mod 7;
writeln(d, ' дней(я) = ', n, ' недель ', d, ' дней(я)');
readkey;
end.
