Pascal abc: 1. [-101, 35] найти кол-во кратных 4 2. вычислить 1+2+4+8+16+

Const dn=-2; dk=1; hd=0.5; tn=-1; tk=-3; ht=-1; var d,t,z: real; i,j,n1,n2: integer; begin n1: =round((dk-dn)/hd); n2: =round((tk-tn)/ht); d: =dn-hd; writeln(' d      t    z'); for i: =0 to n1 do   begin   d: =d+hd;   t: =tn-ht;   for j: =0 to n2 do   begin   t: =t+ht;   z: =sqrt(abs(d*d*d-2))+3*t;   writeln(d: 4: 1,' ',t: 4: 1,' ',z: 6: 3);   end;   end; end. результат:   d      t    z -2.0 -1.0  0.162 -2.0 -2.0 -2.838 -2.0 -3.0 -5.838 -1.5 -1.0 -0.682 -1.5 -2.0 -3.682 -1.5 -3.0 -6.682 -1.0 -1.0 -1.268 -1.0 -2.0 -4.268 -1.0 -3.0 -7.268 -0.5 -1.0 -1.542 -0.5 -2.0 -4.542 -0.5 -3.0 -7.542   0.0 -1.0 -1.586   0.0 -2.0 -4.586   0.0 -3.0 -7.586   0.5 -1.0 -1.631   0.5 -2.0 -4.631   0.5 -3.0 -7.631   1.0 -1.0 -2.000   1.0 -2.0 -5.000   1.0 -3.0 -8.000

//pascalabc.net 3.3,сборка 1611 от 06.01.2018 //внимание! если программа не работает, обновите версию! begin     var a: =1.0;     var n: =readinteger('n=');     var mas: =arrrandomreal(n,-99,99);       var h: =mas.select(t-> round(t*100) /100).toarray; h.println;     for var i: =0 to n-1 do      a: =a*h[i];     a: =a*(1/n);     h[0]: =a;   writeln('среднее неометрическое =',a);   h.println; end.