Выполните классификацию программного обеспечения, отнеся его к одной
из четырёх групп:
A. системное ПО,
B. прикладное ПО общего назначения,
C. прикладное профессионально ориентированное ПО,
D. системы программирования.
Примеры программного обеспечения для выполнения задания:
1 Архиваторы,
2 табличные процессоры,
3 браузеры Интернета,
4 программы обслуживания жесткого диска,
5 системы мультимедиа,
6 образовательные программы,
7 системы программирования на СИ,
8 операционные системы,
9 драйвера,
10 текстовые процессоры,
11 компилятор-интерпретатор Бейсика,
12 антивирусные программы,
13 табличные процессоры,
14 игры,
15 программы профессиональных математических расчетов,
16 бухгалтерские программы,
17 системы автоматизированного проектирования,
18 системы программирования на Делфи,
19 графические редакторы,
20 программы обработки звуковой и видео информации,
21 системы программирования на Паскале.

Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.

var
  res,num:integer;
begin
  res:=0;
  repeat
    Read(num);
    if (num>res) and (num<=15) then res:=num
  until num=0;
  Writeln(res)
end.

Const N = 10;

begin
  var a: array[1..N] of real;
  var i: integer;
  var growing: boolean;
 
  for i := 1 to N do begin
    readln(a[i]);
  end;
 
  growing := true;
 
  for i := 2 to N do begin
    if a[i] <= a[i - 1] then begin
      growing := false;
      break;
    end;
  end;
 
  writeln(growing);
end.

const m = 5;
const n = 4;
const limit = 100;

begin
  var matrix: array[1..m] of array[1..n] of real;
  var matrixb: array[1..m - 1] of array[1..n - 1] of real;
  var row, col, rb, cb, lowest_row, lowest_col: integer;
  var lowest: real;
  var p: boolean;
 
  lowest := limit;
 
  for row := 1 to m do begin
    for col := 1 to n do begin
      matrix[row][col] := random(limit - 1);
      if matrix[row][col] < lowest then begin
        lowest := matrix[row][col];
        lowest_col := col;
        lowest_row := row;
      end;
      write(matrix[row][col], ' ');
    end;
    writeln('');
  end;
 
  writeln('');
  writeln(lowest);
  writeln('');
 
  rb := 1;
 
  for row := 1 to m do begin
    p := false;
    cb := 1;
    for col := 1 to n do begin
      if (not (col = lowest_col)) and (not (row = lowest_row)) then begin
        p := true;
        matrixb[rb][cb] := matrix[row][col];
        cb := cb + 1;
      end;
    end;
    if p then begin
      rb := rb + 1;
    end;
  end;
 
  for rb := 1 to m - 1 do begin
    for cb := 1 to n - 1 do begin
      write(matrixb[rb][cb], ' ');
    end;
    writeln('');
  end;
 
end.