Помогите.

1. С помощью оператора цикла по параметру определить сумму натурального ряда чисел от m до n (m,n-.ввести с клавиатуры).
2. С помощью оператора цикла с предусловием найти сумму
нечетных чисел натурального ряда от 1 до 11 .
3. С помощью оператора цикла с постусловием найти произведение четных чисел натурального ряда от 2 до 10

Ответ:1

2

3

4

5

6

7

8

9

10

11

12

var

 i,n,s:integer;

begin

 repeat

   write('N=');

   readln(n);

 until n>0;

 s:=0;

 for i:=1 to n do

   s:=s+i;

 writeln('Summa:',s);

end.