Program pr;
var pol:string;
i,k,n:integer;
begin
repeat
writeln (введите количество людей в очереди);
readln (n);
until ngt;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.