Всем информатикам сюда. Помогите пожалуйста, люди добрые… (1) S=1+2+3… +10for, while, repeat.

1) Program LoopFor; Uses Crt; var s,i: integer; begin clrscr; s: =0; for i: =1 to 10 do s: =s+i; writeln ('Сумма чисел от 1 до 10: ',s); readkey; end. Program LoopWhile; Uses crt; var s,i: integer; begin clrscr; s: =0; i: =1; while (i<10) do s: =s+i; writeln ('Сумма чисел от 1 до 10: ',s); readkey; end. Program LoopUntil; Uses Crt; var s,i: integer; begin clrscr; s: =0; i: =1; repeat s: =s+i; until (s=10); writeln ('Сумма чисел от 1 до 10: ',s); readkey; end. 2) Program LoopFor2; Uses Crt; var s,i: integer; begin clrscr; s: =0; for i: =2 to 20 do begin s: =s+i; i: =i+2; end; writeln ('Сумма чисел от 2 до 20: ',s); readkey; end. Program LoopWhile2; Uses Crt; var s,i: integer; begin clrscr; s: =0; i: =2; while (i<20) do begin s: =s+i; i: =i+2; end; writeln ('Сумма чисел от 2 до 20: ',s); readkey; end. Program LoopUntil2; Uses Crt; var s,i: integer; begin clrscr; s: =0; i: =2; repeat s: =s+i; i: =i+2; until (s=20) writeln ('Сумма чисел от 1 до 20: ',s); readkey; end.