Составление алгоритмов с повторением и ветвлением на языке программирование Pascal

Задание 2. Разберите программу нахождения суммы чисел 1+2+3+...50. Затем наберите и выполните эту программу на компьютере. Program a1; Var x,s:integer; begin s:=0; For x:=1 to 50 do s:=s+x; Writeln('Сумма равна ', s); end. Задание 3. Разберите программу нахождения суммы чисел 10+11+12...40 Program a2; Var x,s:integer; begin s:=0; For x:=10 to 40 do s:=s+x; Writeln('Сумма равна ', s); end. Задание 4. Разберите и выполните на компьютере программу нахождения суммы четных чисел 2+4+6+...+100. Program a1; Var x,s:integer; begin s:=0; For x:=1 to 100 do if x mod 2=0 then s:=s+x; Writeln('Сумма равна ', s); end. Задание 5. Составьте программу нахождения произведения нечетных чисел 3*5*7*...*13. Program a4; Var x,s:integer; begin s:=1; For x:=3 to 13 do if x mod 2=1 then s:=s*x; Writeln('Произведение равно ', s); end. Задание 6. Program a5; Var x,s,i:integer; begin s:=0; For i:=1 to 10 do begin Writeln('Введите число'); readln(x); s:=s+x; end; Writeln('Сумма равна ', s); end. Задание 7. Составьте программу нахождения суммы n произвольных чисел ( число n ввести с клавиатуры). Program a5; Var x,n,s,i:integer; begin s:=1; Writeln('Кол-во чисел'); readln(n); For i:=1 to n do begin Writeln('Введите число'); readln(x); s:=s*x; end; Writeln('Произведение равно ', s); end.