Обьясните каждую строчку по братски! Паскаль! Uses crt; Var x:Array[1..500] of Integer;...

Question

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

Answer 1

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