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.

C:
#include <stdio.h>

int main()
{ 
char name[10];
int year;
printf("Введите Ваше имя: ");
scanf("%s",&name);
printf("Здравствуйте, %s\n",name);
printf("Введите год рождения: ");
scanf("%d",&year);
printf("Вам %d  лет\n", 2017-year);
return 0;
}

Пример:
Введите Ваше имя: Natali
Здравствуйте, Natali
Введите год рождения: 2000
Вам 17 лет

C++
#include <iostream>
#include <string>
using namespace std;

int main()
{
    string name;
    int year;
    cout << "Введите Ваше имя: ";
    getline (cin, name);
    cout << "Здравствуйте, " << name << endl;
    cout << "Введите год рождения: ";
    cin >> year;
    cout << "Вам " << 2017-year << " лет" << endl;
    return 0;
}

Пример:
Введите Ваше имя: Natali
Здравствуйте, Natali
Введите год рождения: 2000
Вам 17 лет

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('k=',
    ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count);
  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum);
  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(abs(x)<=100) and (x mod 4=0)).Sum)
end.

Каждый оператор Writeln решает одну из задач.
Если надо все отдельно - просто удаляйте два остальных оператора.