1. Напишите подробный комментарий к каждой строке 2. Ответьте на вопрос: «Какую…

Var {начало объявления переменных}N, I, J, K, Pr: Integer; {переменные целочисленного типа}A: Array [1… 30] Of Integer; {массив целочисленного типа}Begin {нанало кода знаменуется ключевым словом begin}Write ('Введите количество элементов: '); {вывод строки в скобках на экран с переходом на следующую строку}ReadLn (N); {считывание значения с клавиатуры} For I: =1 To N Do {цикл с шагом 1} Begin {код цикла} Write ('Введите A[', I, '] '); {вывод строки без переноса}Readln (A[I]); {считывание значения с клавиатуры} End; {конец кода цикла}WriteLn; {переход на следующую строку} For I: =1 To N — 1 Do {цикл с шагом 1} Begin {код цикла} K: =I; {присваивание значения одной переменной к другой} For J: =I+1 To N Do {цикл с шагом 1}If A[J] <= A[K] Then {оператор условия}K: =J; {присваивание значения одной переменной к другой} Pr: =A[I]; {присваивание значения одной переменной к ячейке массива}A[I]: =A[K]; {присваивание значения одной ячейки массива к другой}A[K]: =Pr; {присваивание значения ячейки массива к переменной} End; {конец кода цикла} For I: =1 To N Do {цикл с шагом 1}Write (A[I], '); {вывод значения ячейки i массива A (в строчку) } End.{конец кода}