Динамическое программирование

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
m: array[1..100,1..100] of integer;
n,i,j,k,z,x,y,s,c,t: integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
writeln('Vvedide razmer matrycy');
readln(n);                        {ââîä ðàçìåðíîñòè ìàññèâà}
randomize;
for i:=1 to n do
  for j:=1 to n do
     m[i,j]:=0;                   {ïðèñâàèâàåì êàæäîìó ýëåìåíòó ìàññèâà ñëó÷àéíî çíà÷åíèå}
t:=2+random(5);                   {êîëè÷åñòâî çàìåí ñëó÷àéíî îò 2 äî 6}
for c:=1 to t do
  begin
    i:=1+random(n);
    j:=1+random(n);               {ñëó÷àéíûå èíäåêñû ýëåìåíòîâ ìàññèâà}
    m[i,j]:=1;
  end;
for i:=1 to n do begin
  for j:=1 to n do
    write(m[i,j],' ');           {âûâîäèì ìàññèâ}
    writeln;
end;
{readln;
s:=0;
for k:=1 to n do                  {k - òåêóùàÿ ðàçìåíîñü}
  {for i:=1 to (n-k+1) do
    for j:=1 to (n-k+1) do
      begin
        for x:=j to (j+k-1) do
          for y:=i to (i+k-1) do
            s:=s+abs(m[y,x]);     {ïðîâåðÿåì òåêóùèå ýëåìåíû}
       { if s=0 then
          z:=k;                   {ïðèñâàèâàåì òåêóùóþ ðàçìåðíîñòü}
       { s:=0;                     {îáíóëÿåì ïååìåííóþ}
      {end;
writeln('Matrica - ',z,'x',z);  }
readln;                           {îæèäàíèå ââîäà ñèìâîëà íå äàåò ïðîãðàììå çàâåðøèòüñÿ, äà¸ò âîçìîæíîñòü óâèäåòü ðåçóëüòàò âûïîëíåíèÿ}
end.