Дана программа, написанная на языке pascal, формирующая квадратный массив и заполняющая его по определённым правилам. чему будет равно значение переменной р по окончании выполнения программы? const n=7; var i, к: integer; r, p: real; a: array[1..n,1..n] of real; begink: =0; r: =0; while k