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