В данном фрагменте программы
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.