В данном фрагменте программы s:=0;for i:=1 to 10 dos:=s+2*i;вычисляется...

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

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