if P[k,n]>max then

begin

max:=P[k,n];

max_k:=k;

max_n:=n;

znach_k:=1;

end;

if (znach_k=3) then break;

end;

write(' k');

for i:=1 to max_k+3 do

write(i:7);

writeln;

write('n ');

for i:=n1 to 25 do

begin

if i=n1 then write(n1:3,' ')

else write((i):5,' ');

for j:=1 to max_k+3 do

write(p[j,i]:5:2,' ');

writeln;

end;

writeln;

writeln('max znach = ', max:5:2);

writeln('n = ',max_n,' k= ',max_k);

readln;

end.

Додаток Б

Результати роботи:

k 1 2 3 4 5 6