Дано два четырехзначных числа. Определите, у какого из них больше сумма и
произведение цифр.
Напишите программу для решения задачи в PascalABC. Предусмотрите ввод исходных данных и проверку на ограничения, заданные в условии.

Const
  n = 8;

var
  a: array[1..n]of integer;
  i, j, k, max: integer;

begin
  max := -MaxInt;
  for i := 1 to n do
  begin
    write('a[', i, ']= ');
    readln(a[i]);
    if a[i] > max then max := a[i];
  end;
  writeln(' максимальный элемент массива = ', max);
  //сортировка методом пузырька
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      if a[j] < a[j + 1] then begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k
      end;
  //вывод массива
  for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
a[1]= 12
a[2]= 4
a[3]= 6
a[4]= 23
a[5]= 4
a[6]= 7
a[7]= 8
a[8]= 1
 максимальный элемент массива = 23
  23  12   8   7   6   4   4   1

Действия , которые Уголовный кодекс классифицирует как преступления в компьютерной информативной сфере:

(Глава № 28 УК РФ от 01.01.1997  определяет ответственность за компьютерные преступления)

1) Статья 272 - предусматривает наказание за неправомерный доступ к компьютерной информации.

Наказание - от 200 МРОТ до 5 лет лишения свободы.

2) Статья 273 - устанавливает ответственность за создания, использования и распространения вирусных программ для ЭВМ.

Наказание - до 7 лет лишения свободы.

3) Статья 274 - определяет ответственность за нарушения правил эксплуатации ЭВМ, системы ЭВМ или их сети.

Наказание - до 5 лет лишения свободы.