что надо делать когда обжогся, и что надо делать когда скользит обувь на льду.плиз.

while K<N do

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.

А) 17                   Б) 22                    В) 25                   Г) 28