Вочереди за билетами стоят мужчины и жещины. сколько мужчин стоят в начале очереди до 1 женщины. паскаль

Женщин надо пропускать,потому нет их в начале!

Program pr; var pol: string; i,k,n: integer; begin repeat writeln ('введите количество людей в очереди'); readln (n); until n> 0; k: =0; for i: =1 to n do begin writeln ('введите пол очередного человека в очереди'); readln (pol); if pol='мужчина' then k: =k+1 else break {принудительное завершение цикла}; end; if k=0 then writeln ('мужчин в начале очереди нет') else writeln ('мужчина в начале очереди ',k); end.

якщо загородка - прямокутник,

умовно з - це заєць,

то схема розташування зайців така:

 

з                          з

 

                              з

з              з       

 

три зайці - по кутках, два - біля стінок загородки.