А7. Цикл во фрагменте программы: a:=0.1; s:=0; i:=1; repeat i:=i+1; b:=1/i; s:=s+a; until b<a;