Какой антивирусник самый лучший в мире?

Microsoft security essentials 

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n='),0,9); a.println;   a.groupby(t-> t).select(t-> (t.key,t.(t-> t[0])           .foreach(t-> writeln(t[0],' - ',t[1])) end. пример n= 100 5 7 6 0 1 3 1 4 9 2 8 7 5 2 1 6 1 6 6 6 1 0 1 2 4 9 7 0 5 6 2 7 3 3 1 5 7 5 9 8 1 8 7 8 8 7 3 2 4 4 5 6 8 3 9 4 5 3 6 2 6 0 9 3 9 0 4 2 1 6 9 6 7 7 5 3 3 3 3 7 6 4 5 0 0 5 8 0 4 6 9 3 8 6 1 0 9 3 8 7 0 - 9 1 - 10 2 - 7 3 - 13 4 - 8 5 - 10 6 - 14 7 - 11 8 - 9 9 - 9

Program p1; uses crt; var a: array[1..11] of integer; i,p,s: integer; begin for i: =1 to 11 do begin   a[i]: =random(30)-10;   write(a[i]: 4);   end;       p: =1;   s: =0;   for i: =1 to 11 do begin       if a[i]> 0 then begin           p: =p*a[i];         end;                 if a[i]< 0 then           s: =s+a[i];           end; writeln; writeln('произведение  : ',p); writeln('сумма : ',s); end.