i:=0; S:=0;
while i<5 do
begin
  i:=i+1;
  S:=S+2*i;
end;

Шаг	Проверка условия	Значение i	Значение S	Формула расчета S
Начало	-	0	0	Инициализация