Прокомментировать код

function FindMin(x,y:integer):integer;
begin
if x<y then FindMin:=x else FindMin:=y
end;
var a,b:array[1..100] of integer;
n,k,i:byte;
begin
repeat
write('Размер массива четное число от 2 до 100 n=');
readLn(n);
until (n in [2..100])and(n mod 2=0);
writeln('Введите элементы массива, целые числа');
for i := 1 to n do
begin
write('a[', i, ']=');
readLn(a[i]);
end;
writeln('Массив А');
k:=0;
for i:=1 to n do
begin
write(a[i]:4);
if odd(i) then
begin
k:=k+1;
b[k]:=FindMin(a[i],a[i+1]);
end;
end;
writeln;
writeln('Массив В');
for i:=1 to k do
Write(b[i]:4);
end.

function FindMin(x,y:integer):integer; // мы объявляем функцию с именем findmin, с параметрами x,y:integer; возвращает функция значение типа integer;
begin // объявление начала функции
if x<y then FindMin:=x else FindMin:=y // если x<y то тогда функция findmin получает значение x иначе y
end; // объявление конца функции
var a,b:array[1..100] of integer; // объявляем переменные a,b тип массив от 1 до 100 со значениями integer
n,k,i:byte; // объявляем n,k,i типа byte
begin // объявление начала
repeat // объявление начала цикла c пост условием (проверяется условие в конце) заканчивается этот цикл словом until
write('Размер массива четное число от 2 до 100 n='); // выводим в консоль текст
readLn(n); // читаем значение в переменную n
until (n in [2..100])and(n mod 2=0); // условие если n нету в промежутке от 2 до 100 и n нечётное, то тогда переходим к началу цикла иначе выходим из цикла
writeln('Введите элементы массива, целые числа');// выводим в консоль текст
for i := 1 to n do // делаем цикл от 1 до n с переменной счётчиком i
begin // объявление начала цикла
write('a[', i, ']='); // выводим в консоль текст
readLn(a[i]); // читаем значение в переменную a[i] где i это номер элемента в массиве
end; // объявление конца цикла
writeln('Массив А'); // выводим в консоль текст
k:=0; // переменная k становится 0
for i:=1 to n do // делаем цикл от 1 до n с переменной счётчиком i
begin // объявление начала цикла
write(a[i]:4); // выводим в консоль текст
if odd(i) then // если i чётное тогда
begin // объявление начала условия
k:=k+1; // k становится на 1 больше
b[k]:=FindMin(a[i],a[i+1]); // переменная b[k] становится значением функции findmin с параметрами a[i], a[i+1]
end; // объявление конца условия
end; // объявление конца цикла
writeln; // выводим в консоль текст
writeln('Массив В');// выводим в консоль текст
for i:=1 to k do // делаем цикл от 1 до k с переменной счётчиком i, так как begin нету то будет выполнятся 1 следующая команда после этой строки
Write(b[i]:4); // выводим в консоль текст
end. // конец программы