Да выигрыш есть, но совсем не большой. Я прекрасно осознаю, что операция деления не есть лучший вариант.
Кстати, с -O3 будут real 0m1.831s для делений и, о чудо, real 0m2.133s для цикла.
а:аггау[1..10]:=(1,0,1,0,1,0,1,0,1,0); write(a[x])
Ну с этим-то никто не спорит.