zamolio bih vas da uradite

Za sumu reciprocnih vrednosti mozes samo da stavis:

srec := 1/suma;

posle for petlje, tj ne moras u petlji da formiras tu sumu kao

srec := srec + 1/a;

Za kvadrate te ne razumem.