Описать программные слова которые участвуют в этой программе.Пж хелп
program n_3;
Var
a: array[1..10] of integer;
m, i,s: integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(+10) + 1;
if a[i] > m then m := a[i];
end;
for i := 1 to 10 do
begin
if a[i]=m then s:=s+1;
end;
writeln(s);
end.

Задан массив "а" от 1 до 10

Объявлены целочисленные параметры m , i , s

В программе задан цикл от 1 до 10 где заполняется массив случайными числами от 1 до 10

Далее производится проверка условий внутри цикла, что если массив по i больше m, то m присваивается значение этого массив по i.

Цикл заканчивается

Идёт следом другой цикл от 1 до 10 где внутри цикла производится проверка повторений максимального значения m и производится подсчёт этих значений в параметре s

Выводится s