Запишите самую короткую маску файла, которая соответствует файлам, содержащим букву t в произвольном месте имени, расширение которых начинается на букву p и состоит ровно из трех символов

Const
  n = 10;
var
  matrix : array [1..n] of array [1..n] of integer;
  i, j, max : integer;
begin
  {формирование матрицы}
  for j := 1 to n do
  begin
    if j <= Trunc(n / 2) then       {находим последний индекс для вставки 1}
      max := j       
    else
      max := n - j + 1;
    for i := 1 to max do                          {заполняем линию единицами}
    begin
      matrix[j][i] := 1;
      matrix[j][n - i + 1] := 1;
    end;
  end;
  {вывод матрицы (если не нужно, удалите код)}
  for j := 1 to n do
  begin
    for i := 1 to n do
      write(matrix[j][i], ' ');
    writeln;
  end;      
end.  

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9