program segunda;

var

no, n6 : integer;

    begin

    n6:=0;
    writeln('escreva a nota');
    readln(no);

while (no >= 0) do

begin

 if no = 6 then n6 := n6 + 1;

 writeln('escreva a nota');
 readln(no);

 end;

 writeln (' o numero de pessoas que tirou 6 foi ',n6);
 readln;

end.