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