Вочереди за билетами стоят мужчины и жещины. сколько мужчин стоят в начале очереди до 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.

1)никакие художники не могут повторить замечательный стиль рисования известного художник маковского

 

2)все великие писатели в своё время переносили критику,но это делало их только сильнее.

дальше не придумал

(с уважением tipaeinstein)