Обьясните каждую строчку по братски! Паскаль!
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используется для включения генератора случайных чисел