program weeksPassed;
vardaysPassed, weeks: integer;
begindaysPassed := 234;
weeks := daysPassed div 7;
writeln('Полных недель прошло за период: ', weeks);end.
program weeksPassed;
var
daysPassed, weeks: integer;
begin
daysPassed := 234;
weeks := daysPassed div 7;
writeln('Полных недель прошло за период: ', weeks);
end.