Организовать вывод элементов массива P(1:73) Pascal

Не подходит — 1) 2528, так как максимальное число разряда 9, то мы понимаем что максимальное возможное число любой поразрядной суммы трех чисел  27. 2528 если брать 25 и 28, то 28 больше 27 (про другой вариант и говорить не стоит — 2 и 528).
А номер 2) как раз подходит, например числа 90, 91, 90 получается 127 (27 — старшие разряды, 1 — младшие, записываем в порядке возрастания).
В общем результатом работы "автомата" могут быть все кроме 1) 2528. Ну конечно если я правильно понял условия. То что 2) не правильный в условии или как, с чего ты решил что это так?

Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.

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

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Rewrite(f);
  SeqRandom(20,-50,50).foreach(t->Write(f,t));
  f.Close
end.

А теперь, собственно, решение задачи

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Reset(f);
  var k:=0;
  var b:integer;
  while not Eof(f) do begin
    Read(f,b);
    if b.IsEven then k+=1
    end;
  f.Close;
  Writeln('Кол-во четных компонент файла равно ',k)
end.

И последнее - программа распечатки значений компонент файла. Для контроля.

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Reset(f);
  var b:integer;
  while not Eof(f) do begin Read(f,b); Print(b) end;
  Writeln;
  f.Close
end.