написать задачу в паскале:
Во введенной фразе каждое буквосочетание «ов» или «Ов» заменить на «ОВ».
Вывести полученную фразу и количество произведенных замен.

Фамилия брюнета Ивана - Антонов, Борисов, Глебов или Дмитриев. Но Антонов и Глебов не женаты, а Иван женат на сестре жены Дмитриева. Поэтому Иван имеет фамилию Борисов.

Егоров блондин, то есть его имя - Борис, Дмитрий, Антон или Глеб. Но так как человек, фамилия которого совпадает с именем Егорова, женат,
то имена Антон и Глеб исключаются. Кроме того, теперь
можно исключить и имя Борис: в этом случае из условия следовало бы, что имя Борисова - Егор, а мы уже выяснили, что его зовут Иван.
Методом исключения получаем, что имя Егорова - Дмитрий.
Следовательно, фамилия Бориса совпадает с именем Дмитриева.
Отсюда, кстати, следует, что Борис - не Иванов.

Поэтому для блондина Иванова остаются только два имени - Антон или Глеб. Но Глеб отпадает по условию (его фамилия не Иванов, а лишь совпадает с именем Иванова). Значит, Иванова зовут Антон. Тогда Глеб
имеет фамилию Антонов. Соответственно, неженатый Егор - Глебов.
Остались только Василий и Борис, фамилии которых - Васильев и Дмитриев. Ясно, что фамилия Бориса - Васильев, а Василия - Дмитриев.

Var x, i, h1, h2, h3, h4, h5, h6, s1, s2: integer;
begin
       readln (x);
       h1 := x div 100000;
       h2 := x mod 100000 div 10000; 
       h3 := x mod 10000 div 1000; 
       h4 := x mod 1000 div 100; 
       h5 := x mod 100 div 10; 
       h6 := x mod 10; 
       s1 := h1 + h2 + h3; 
       s2 := h4 + h5 + h6; 
       if (s1 = s2) then writeln('Счастливый') 
                      else writeln('Несчастный:)');
        readln;
end.

Вот, ошибка в целочисленном делении) Советую такое на листочке расписывать: 123321 и обводить что нужно взять, что в каком порядке откидывать...)