1.Даны два целых числа A и B (A < B ). Найти сумму всех чисел от A до B включительно.
2. Даны два целых числа A и B (A < B, A > 0). Найти произведение всех чисел от A до B включительно.
3. Дан массив целых чисел Х. Найти сумму квадратов всех чисел.
4. Дан массив целых чисел Х. Найти количество отрицательных элементов массива.
5. Дан массив целых чисел Х. Найти максимальный элемент массива.

1.Program suma;Var a, b, sum, i:integer;begin  read(a);  read(b);  for i:=a to b do sum:=sum+i;  write(sum);end.2.Program multip;Var a, b, m, i:integer;begin  m:=1;  read(a);  read(b);  for i:=a to b do m:=m*i;  write(m);end.3.Program suma2;Var a:array [1..5] of integer;    i, sum:integer;begin  for i:=1 to 5 do read(a[i]);  for i:=1 to 5 do     sum:=sum + a[i] * a[i];  write(sum);end.4.Program cnt_nopos;Var a:array [1..5] of integer;    i, cnt:integer;begin  for i:=1 to 5 do read(a[i]);  for i:=1 to 5 do     if a[i] < 0 then Inc(cnt);  write(cnt);end.5.Var a:array [1..5] of integer;    i, max:integer;begin  for i:=1 to 5 do read(a[i]);  max:=a[1];  for i:=1 to 5 do     if a[i] > max then      max:=a[i];        write(max);end.