Пусть задана квадратная матрица А размера N N (где N=7).

Пусть задана квадратная матрица А размера N N (где N=7). В программе, написанной на языке Pascal, производится обработка в согласовании с программкой:
const N=7;
VAR I, K:integer;
R,P:real;
A:array[1..N,1..N] of real;
begin
K:=0;
R:=0;
while K begin
for I:=1 to N-K do
begin
R:=R+1;
A[I,I+K]:= R;
end;
K:= K+1;
end;
P:= A[3,7];
writeln(P);
end.
Чему будет равно значение переменной Р по окончании выполнения программы?
В ответе запишите только приобретенное число без пробелов и каких-либо знаков препинания.