Для чего нужна стратегия? скажите .не кратко 10

для того что бы застать врага в расплох

Uses drawman; begin field(13,5); topoint(3,4); pendown; onvector(-2,0); onvector(0,-3); onvector(2,0); penup; onvector(1,0); pendown; onvector(1,3); onvector(1,-3); penup; onvector(1,0); pendown; onvector(0,3); onvector(0,-3); onvector(1,0); onvector(0,3); onvector(0,-3); onvector(1,0); onvector(0,3); onvector(0,-3); penup; onvector(1,0); pendown; onvector(1,3); onvector(1,-3); penup; topoint(4,2); pendown; onvector(2,0); penup; topoint(10,2); pendown; onvector(2,0); penup end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =matrgen(6,7,(i,j)-> sin(i+1)+cos(3*(j+;   a.println(10,6); writeln(70*'-');   var b: =a.elementswithindexes.where(t-> t[1].iseven and t[2].iseven)           .select(t-> t[0]).toarray;   b.println;   var m: =b.where(t-> t> 0).defaultifempty.average;   writeln('искомое среднее равно ',m);   var f: =openwrite('myfile.txt');   for var i: =0 to a.rowcount-1 do begin       for var j: =0 to a.colcount-1 do           write(f,a[i,j],' ');       writeln(f);       end;   writeln(f);   for var i: =0 to b.length-1 do write(f,b[i],' ');   f.close; end.