задача о совместных браках

[Marianna22]

[newerow1989]

На 63 строке надо дописать end;
И будет выглядеть так:

single[w]:= true
end
// end
end{try};
end;//<< здесь дописать!!!!!!!!!!!!!!

begin
for m:= 1 to n do
for r:= 1 to n do
begin

А про while(i<r) ^ s я скажу: не бывает такой конструкции

[Marianna22]

Очень Вам признательна за помощь!!! Вы меня спасли!) Большое большое спасибо!!!

[newerow1989]

Пожалуйста!

[evg_m]

А про while(i<r) ^ s я скажу: не бывает такой конструкции

На картинке какой-то другой "pascal".
В котором логические операторы (not or and) представлены их МАТЕМАТИЧЕСКИМИ (точнее из комбинаторики) символами.
^ and

while (i<r) and s do /// так это должно быть в "нашем" pascal

¬ not
if not single[

[Marianna22]

Логично, кстати. Спасибо! я бы не додумалась