Megszámolás(N,ID,SZAZ): DB:=0 Ciklus I=1-től N-ig Ha ID[I]<=SZINTakkor DB:=DB+1 Ciklus vége SZAZ:=Kerekít(100*DB/N) Eljárás vége