Program lab3 const 20 var array of real array of real array of real in

Program lab3;
const n=20;
var A:array[1..n,1..n] of real;
B:array[1..n] of real;
C:array[1..n] of real;
i,j: integer;
sum: real;
begin
for i:=1 to n do
for j:=1 to n do
begin
	for i:=2 to n do		{Четыре вложенных цикла. Такому коду впринцпе сложно найти применение, 
							а в лабе для первокурсников вообще 100%}
		for j:=1 to i-1 do
			A[i,j]:=0;
end;

read(A[i,j]); {сюда уже ни один цикл не достает, это выполнится один раз с неизвестными параметрами i, j}

writeln (B); {Что здесь происходит? Если ты хотела вывести массив, то так он не выводится.
				Да и он пустой пока. На класическом паскале ошибку выдаст}

for i:=1 to n do
	read (B[i]); {Вот это правильная инициализация массива, но никак иначе}

sum:=0;

for i:=1 to n do
begin
	sum:=sum+A[i,j]*B[i]; {Где изменяется j? И откуда вообще эта формула?}
	С[i]:=sum;
end;

for i:=1 to n do 
	writeln (C[i]);
end.