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