thank you now i have got an AC

Edited by author 25.12.2008 21:46

try is:

for i:=1 to 100 do
  res:=res+(b[i] div 4);