Alors que Tessa et Hardin tentent de recoller les morceaux de leur relation, de nouveaux obstacles viennent se mettre en travers de leur histoire d'amour et de nouveaux secrets sont dévoilés. Mais tout ça n'est rien comparé à l'arrivée du beau Trevor dans la vie de Tessa, qui va s'attirer les foudres d'Hardin, conscient de la menace que ce nouveau prétendant représente. Suite du film After - Chapitre 1

// 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 решает одну из задач.
Если надо все отдельно - просто удаляйте два остальных оператора.

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 лет