Задана таблица А ( 3; 3 ) Вывести ее на экран и найти произведение элементов второй строки.

пишу в москаль(паскаль)АВСprogram tablix;k:=array[1...3;1...3] of integer;var i,j,s:integer;begins:=0;for i:=1 to 3do for j:=1 to 3 do beginif i+j=4//формула побочной диагонали i+j=n+1then s:=s+k[i,j];end;writeln(s);end.