Помогите пожалуйста

1)Var s,k:integer;

begin

s:=100;

for k: 6 to 10do

s:=s+2*k;

write(s);

end.

2)Var s,k:integer;

begin

s:=120;

for k :10 to 20do

s:=s-10;

write(s);

end.

3)Var s,k:integer;

begin

s:=1;

for k :2 to 7do

s:=s+100;

write(s);

end.

4)Var s,k:integer;

begin

s:=1;

for k :3 to 8do

s:=s*2;

write(s);

end.

5)Var s,k:integer;

begin

s:=1;

for k :1 to 7do

s:=s+k;

writeln(s);

end.

6)Var u,i :integer;

begin

u:=30;

for k :1 to 6do

u:=u-i;

writeln(u);

end.

7)Var k.i:integer;

begin

k:=4;

for i :1 to 3do

k:=i+2*k;

writeln(k);

end.

8)Var y, i :integer;

begin

y:=0;

for i :1 to 3do

y:=y+4*i;

writeln(y);

end.

9)Var k,i:integer;

begin

k:=2;

for i :0 to 2do

k:=i+3*k;

writeln(k);

end.

10)Var s,k:integer;

begin

s:=2;

for k :1 to 3 do

s:=s*s ;

write(s);

end.
Дам 50 баллов

Ответ:

Объяснение:если найти верную программу, то ее тут нету