Uses crt; - подключение к программе модуля crt, который содержит процедуры для работы с экраном

Var - объявление переменных
x: Array[1..500] of Integer; - массив x размером от 1 до 500 элементов типа Integer
i, n: Integer; - переменные i и n типа Integer
pr: Longint; - переменная pr типа Longint

Begin - начало основной части программы
Clrscr; - очистка экрана
Randomize; - инициализация генератора случайных чисел
Writeln('Введите количество элементов массива: '); - вывод на экран сообщения "Введите количество элементов массива: "
Readln(n); - считывание значения n с клавиатуры
Writeln('Исходный массив:'); - вывод на экран сообщения "Исходный массив:"
For i:=1 to n do - цикл от 1 до n
begin - начало блока действий цикла
x[i]:= Random(101)-50; - присвоение элементу массива x случайного значения в диапазоне от -50 до 50
Write(x[i],' '); - вывод на экран значения элемента массива x[i]
end; - конец блока действий цикла
pr:=1; - присвоение переменной pr значения 1
For i:=1 to n do - цикл от 1 до n
If x[i] mod 3=0 Then - если элемент массива x[i] делится на 3 без остатка
begin - начало блока действий
pr:= pr * x[i]; - умножение переменной pr на значение элемента массива x[i]
end; - конец блока действий
Writeln; - переход на новую строку
Writeln('Произведение элементов кратных 3: ',pr); - вывод на экран сообщения "Произведение элементов кратных 3: " и значения переменной pr
Readln - ожидание нажатия клавиши пользователем
End. - конец программы