С некоторого момента прошло 234 дня. Сколько полных недель прошло за этот период Паскаль аbc
Самое основное. незабудь объявить переменные day=234 week:=day div 7 writeln(week)