Вданном фрагменте программы s: =0; for i: =1 to 10 do s: =s+2*i;

В данном фрагменте находят сумму первых десяти четных чисел :

сначала сумма s:=0, затем перебирают числа от 1 до 10 (for i:=1 to 10) и в сумму добавляют не само число i, а его удвоенное значение (2*i), т.е. находят сумму 2 + 4 + 6 + ... + 20.