For A := 1 To 5 Do S = S + A;

For A := 10 DownTo 0 Do S = S + A;

For A := 10 To 0 Do S = S + A;

For A := 0 DownTo 10 Do S = S + A;

verakong    1   06.05.2021 12:13    0