Обьясните каждую строчку по братски! паскаль! uses crt; var x: array[1..500] of integer; i,n: integer; pr: longint; begin clrscr; randomize; writeln('введите количество элементов массива: '); readln(n); writeln('исходный массив: '); for i: =1 to n do begin x[i]: =random(101)-50; write(x[i],' '); end; pr: =1; for i: =1 to n do if x[i] mod 3=0 then begin pr: =pr*x[i]; end; writeln; writeln('произведение элементов кратных 3: ',pr); readln end.

1
Ключевое слово USES указывает программе, что необходимо подключить дополнительный внешний модуль (файл с описанием и определение различных функций) . 
Crt является одним из стандартных модулей. В нем описаны и определены функции для работы с текстовой информацией на дисплее
2
начало блока определения переменных
3
массив
4
ввод данных с клавиатуры
5
тип данных
6
используется для начала исполняемой секции функции, метода объекта, процедуры, программы, свойства объекта или используется для отделения начала выражения блока
7
очистка экрана
8
используется для включения генератора случайных чисел