Разработать математическую модель и алгоритм решения задачи. Выполнить контрольный пример. Проверить алгоритм в пошаговом режиме. Дан одномерный массив. Требуется найти длину наибольшей возрастающей подпоследовательности элементов в этом массиве и определить значения индексов: начала и конца этой последовательности.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
const
  R=8.314;
begin
  Writeln('Расчет параметров газового состояния');
  Writeln('Введите обозначение величины, которую хотите найти:');
  Writeln('p - давление, m- масса газа, V - объем массы газа,');
  Writeln('T- термодинамическую температуру, иное - ОТКАЗ');
  var c:=ReadlnChar;
  if Pos(c,'pPmMVvTt')=0 then Writeln('Всего доброго!')
  else begin
    var M1,p,V,m,T:real;
    M1:=ReadReal('Введите массу одного моля газа (кг/моль):');
    case c of
    'p','P':begin
      m:=ReadReal('Введите массу газа (кг):');
      V:=ReadReal('Введите объем массы газа (м3):');
      T:=ReadReal('Введите термодинамическую температуру (К);');
      Writeln('Давление p составляет ',m*R*T/M1/V:0:5,' Па')
      end;
    'm','M':begin
      p:=ReadReal('Введите давление газа p (Па):');
      V:=ReadReal('Введите объем массы газа (м3):');
      T:=ReadReal('Введите термодинамическую температуру (К);');
      Writeln('Масса газа m составляет ',p*V*M1/R/T:0:5,' кг')
      end;
    'V','v':begin
      p:=ReadReal('Введите давление газа p (Па):');
      m:=ReadReal('Введите массу газа (кг):');
      T:=ReadReal('Введите термодинамическую температуру (К);');
      Writeln('Объем массы газа V составляет ',m*R*T/M1/p:0:5,' м3')
      end;
    'T','t':begin
      p:=ReadReal('Введите давление газа p (Па):');
      m:=ReadReal('Введите массу газа (кг):');
      V:=ReadReal('Введите объем массы газа (м3):');
      Writeln('Термодинамическая температура составляет ',p*V*M1/m/R:0:1,' K')
      end
    end
  end
end.

Пример
Расчет параметров газового состояния
Введите обозначение величины, которую хотите найти:
p - давление, m- масса газа, V - объем массы газа,
T- термодинамическую температуру, иное - ОТКАЗ
m
Введите массу одного моля газа (кг/моль): 28e-3
Введите давление газа p (Па): 96360
Введите объем массы газа (м3): 2e-3
Введите термодинамическую температуру (К); 298
Масса газа m составляет 0.00218 кг

Var    matrix: array[1..5,1..5] of integer;    i, j: integer; sg:=0; sp:=0;begin    writeln ('Введите 25 чисел: ');     for i := 1 to 5 do        for j := 1 to 5 do            read (matrix[i,j]);     for i := 1 to 5 do begin        for j := 1 to 5 do            write (matrix[i,j], ' ');        writeln    end;  for i:=1 to 5 do begin   for j:= 1 to 5 do   if j=i then sg:=sg+matrix[i,j]; end; for i:=5 downto 1 do    begin    for j:=1to 5 do    if (i+j)=6 then sp:=sp+matrix[i,j]    end;    sp:=sp-matrix[3,3];1 writeln(sg,' ',sp);readlnend