Цикл з лічильником

Що буде результатом виконання даного циклу

S:=1;

For i:=1 to 4 do

Begin

S:=S+2;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу

S:=10;

For i:=1 to 4 do

Begin

S:=S-2;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу 

S:=0;

For i:=1 to 3 do

Begin

S:=S+1;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу

A:=1;

S:=0;

For i:=1 to 4 do

Begin

S:=S-A;

A:=1;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу

A:=2;

S:=2;

For i:=1 to 2 do

Begin

S:=S+2*A;

A:=A+1;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу

A:=0;

S:=10;

For i:=1 to 4 do

Begin

S:=S-A*2;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу

A:=1;

S:=1;

For i:=1 to 3 do

Begin

S:=S*A;

A:=A+1;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу

A:=1;

S:=0;

For i:=1 to 4 do

Begin

S:=S*A;

A:=A+1;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу

A:=1;

S:=1;

For i:=1 to 2 do

Begin

S:=S+A-1;

A:=A-1;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу

S:=1;

For i:=2 to 3 do

Begin

S:=S*2;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу 

A:=1;

S:=0;

For i:=1 to 3 do

Begin

S:=S*A;

A:=A+2;

End;

Label1.Caption:=IntToStr(S);

Що буде результатом виконання даного циклу

A:=-1;

S:=0;

For i:=1 to 2 do

Begin

S:=S+A*2;

A:=A+1;

End;

Label1.Caption:=IntToStr(S);