На награждении оказалось, что двоих победителей-пятиклассников зовут одинаково (совпадают и имена, и фамилии). Логин одного из них — edge781. Напишите логин второго:
​

Const       handsfree = false;       nmax = 4;       random_min = -50;       random_max = 50; var       a: array[1..nmax] of integer;       i, n, j: integer;       sum, product, harmonic: real;       k: integer; begin       {ввод массива}       n : = nmax;       writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(random_max - random_min) + random_min;                       write(a[i], ' ');               end               else                       readln(a[i]);       end;       writeln();             {подсчет элементов}       k : = 0;       for i : = 1 to n do               if a[i] mod 2 = 0 then                       k : = k + 1;       writeln('quantity = ', k);             {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               sum : = sum + a[i];       writeln('sum = ', sum); end.