Pascal (массивы)

[4otenado]

Сообщение от eoln

Тех. поддержка, блин...

for i:=1 to 6 do
for j:=1 to 7-i do
sum:=sum+a[i,j];

спасибо большое