Обьесните каждую команду каждую строчку что где происходит

program z_7;

var i, s, m: integer;

a: array [1..10] of integer;

begin

s: =0; m: =0;

writeln ('введите 10 целых чисел: ');

for i: =1 to 10 do begin

write (i, ' число: ');

readln (a[i]);

if a[i] > s then s : = a[i];

end;

for i : = 1 to 10 do

begin

if a[i]=s then m: =m+1;

end;

writeln(m, ' элемента(-ов) массива имеют максимальное значение.');

end.

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

2 строчка ты создаешь 3 переменных типа integer(числовой тип данных)

3 строчка ты создаешь массив из 10 ячеек так же типа integer

4 строка начало  программы

5 строка ты присваиваешь значение переменным которые создал во 2 строке

6 это функция вывода на экран(то что в скобках)

7 начало цикла который будет повторяться 10 раз

8 так же вывод в консоль

9 функция ввода с клавиатуры

10 проверка если итый (порядковый номер из массива) элемент массива больше s, тогда переменная s равна этому числу

11 конец цикла

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

13 начало

14 проверяешь если а итый равен s , тогда m+1

15 конец цикла

16 вывод на экран текста

17 конец программы