1+2+3+4+5+6+7+8+9+10=Решить циклами For b while! Плиз очень надо!

const n=10; var i, Summ: integer; begin Summ: =0; for i: =1 to n do Summ: =Summ+i; writeln ('Summ=', Summ); readln; end. //вторая программаconst n=10; var i, Summ: integer; begin Summ: =0; i: =1; while i <= n do begin Summ: =Summ+i; i: =i+1; end; writeln ('Summ=', Summ); readln; end.