Допишите код программы, которая будет вычислять периметр фигуры

Всего натуральных чисел, которые удовлетворяют условию - 55 22*0 + 14*604 = 8456 22*7 + 14*593 = 8456 22*14 + 14*582 = 8456 22*21 + 14*571 = 8456 22*28 + 14*560 = 8456 22*35 + 14*549 = 8456 22*42 + 14*538 = 8456 22*49 + 14*527 = 8456 22*56 + 14*516 = 8456 22*63 + 14*505 = 8456 22*70 + 14*494 = 8456 22*77 + 14*483 = 8456 22*84 + 14*472 = 8456 22*91 + 14*461 = 8456 22*98 + 14*450 = 8456 22*105 + 14*439 = 8456 22*112 + 14*428 = 8456 22*119 + 14*417 = 8456 22*126 + 14*406 = 8456 22*133 + 14*395 = 8456 22*140 + 14*384 = 8456 22*147 + 14*373 = 8456 22*154 + 14*362 = 8456 22*161 + 14*351 = 8456 22*168 + 14*340 = 8456 22*175 + 14*329 = 8456 22*182 + 14*318 = 8456 22*189 + 14*307 = 8456 22*196 + 14*296 = 8456 22*203 + 14*285 = 8456 22*210 + 14*274 = 8456 22*217 + 14*263 = 8456 22*224 + 14*252 = 8456 22*231 + 14*241 = 8456 22*238 + 14*230 = 8456 22*245 + 14*219 = 8456 22*252 + 14*208 = 8456 22*259 + 14*197 = 8456 22*266 + 14*186 = 8456 22*273 + 14*175 = 8456 22*280 + 14*164 = 8456 22*287 + 14*153 = 8456 22*294 + 14*142 = 8456 22*301 + 14*131 = 8456 22*308 + 14*120 = 8456 22*315 + 14*109 = 8456 22*322 + 14*98 = 8456 22*329 + 14*87 = 8456 22*336 + 14*76 = 8456 22*343 + 14*65 = 8456 22*350 + 14*54 = 8456 22*357 + 14*43 = 8456 22*364 + 14*32 = 8456 22*371 + 14*21 = 8456 22*378 + 14*10 = 8456

Program gogo; uses crt; const n=10; var a: array[1..n,1..n] of real; sm: real;     i,j: byte; begin clrscr;   for i: =1 to n do    begin  for j: =1 to n do begin  write('vvedite ',i,'.',j,' cifru '); readln(a[i,j]);   end;   end; sm: =0; for i: =1 to n do   begin     for j: =1 to n do       begin        if j> i then sm: =sm+abs(a[i,j]);       end;     writeln;   end; write('summa=',sm: 0: 3); readln end.