Напишите в паскале программу для уровнения 7x-3x+6

Program Primer;
Uses Crt;
Var x: real;
Begin
Writeln('Введите х');
Readln(x);
Writeln(4*x+6);
End.

В наихудшем случае, последнее новогоднее число - 11111111.

#include <iostream>

bool isNewYearNumber(int n);
int sumDigits(int num);
bool hasZero(int n);

int main() {
  const int LASTNEWYEARNUMBER = 11111111;
  long long sum = 0;
  for(int i = 0; i <= LASTNEWYEARNUMBER; i++)
    if ( isNewYearNumber(i) )
      sum += i;
  std::cout << "Сумма всех новогодних чисел: " << sum << '\n';
  return 0;
}

bool isNewYearNumber(int n)
{
  if ( !( hasZero(n) ) && sumDigits(n) == 8)
    return true;
  else
    return false;
}

int sumDigits(int num)
{
  int sum = 0;
  while ( num > 0 ) {
    sum += num % 10;
    num /= 10;
  }
  return sum;
}

bool hasZero(int n)
{
  if (n < 0)
    n = -1 * n;
  if (n % 10 == 0)
    return true;
  else if (n / 10 > 0)
     hasZero(n / 10);
  else
    return false;
}

Юра, Миша, Володя, Саша, Олег
Юра стоит раньше Миши, но после Олега:
                                       Первым будет Олег, за ним Юра, дальше Миша.
Саша не находится рядом ни с Олегом, ни с Юрой, ни с Володей:
                                                                                   Саша будет последний
Володя и Олег не стоят рядом:
                               Володя будет стоять между Юрой и Мишой
                                 (между Мишой и Сашой не может из-за условия више) 

ответ: ОЛЕГ, ЮРА, ВОЛОДЯ, МИША, САША