Получите последовательность max(a1, a2,...,ak), max(ak+1, ak+2,...,a2k), max(ak(n-1)+1,...,akn). - Turbo Pascal

Формулировка задачи:

Пусть даны натуральные числа k, n, вещественные числа a₁, a₂,...,a_kn. Получите последовательность max(a₁, a₂,...,a_k), max(a_k+1, a_k+2,...,a_2k), max(a_k(n-1)+1,...,a_kn).

Решение задачи: «Получите последовательность max(a1, a2,...,ak), max(ak+1, ak+2,...,a2k), max(ak(n-1)+1,...,akn).»

Листинг программы

uses crt;
var i,j,k,n:integer;
    a,b,mx:real;
begin
clrscr;
randomize;
repeat
write('Введите длину подпоследлвательностей k от 2 до 10 k=');
readln(k);
until k in [2..10];
repeat
write('Введите количество подпоследлвательностей n от 1 до 24 n=');
readln(n);
until n in [2..24];
for i:=1 to n do
 begin
  mx:=9*random;
  write(mx:5:2);
  for j:=2 to k do
   begin
    a:=9*random;
    write(a:5:2);
    if a>mx then mx:=a;
   end;
  writeln('  max=',mx:0:2);
 end;
readln
end.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и выполняет следующие действия:

Запрашивает у пользователя длину подпоследлвательностей k и количество подпоследлвательностей n.
Выполняет цикл n раз, где каждая итерация представляет собой одну подпоследлвательную последовательность.
На каждой итерации вычисляет максимальное значение из текущей подпоследлвательной последовательности и предыдущей подпоследлвательной последовательности.
Выводит максимальное значение на экран.
Повторяет шаги 3-4 для каждой подпоследлвательной последовательности.
Завершает программу после выполнения всех подпоследлвательных последовательностей.