СРОЧНО!!! Самостоятельная по информатике "Циклы"

Ответ:

1)10

2) 1 раз

3)

Begin

Readln(n);

S:=0;

For i:=1 to n do

S:=s+i;

Write(s);

End.

4)

Begin

I:=1001;

While (i<10000) do

Begin

I:=i+7;

Writeln(i);

End;

End.