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

• сумма целых чисел от 1 до 7
• сумма чётных чисел от 1 до 7
• удвоенная сумма целых чисел от 1 до 7
• сумма первых семи чётных чисел