Дана последовательность не более n ненулевых целых чисел, последним числом в последовательности является 0. ввести эту последовательность в одномерный массив и вычислить хаpактеристики .найти порядковые номера и сумму двух наибольших элементов. ( в паскаль )

Type   te = record       v: integer;       p: integer;   end; procedure swap2e(var a: te; var b: te); // обмен содержимым пары записей var   buff: integer; begin   buff : = a.v; a.v : = b.v; b.v : = buff;   buff : = a.p; a.p : = b.p; b.p : = buff end; procedure swap3e(var a: te; var b: te; var c: te); // обмен содержимым трех записей // предполагается, что до вызова процедуры a.v> =b.v, // после вызова значение с.v помещается в a.v или b.v так, // чтобы большее из трех значений попало в a.v, а следующее // по величине попало в b.v. младшее значение теряется.  begin   if c.v > = a.v then begin       swap2e(a, b); swap2e(a, c)   end   else   if c.v > b.v then swap2e(b, c); end; const   n = 50; var   a: array[1..n] of integer;   r1, r2, t: te;   i, e, m: integer; begin   i : = 1;   writeln('вводите числа, 0 - конец ввода');   repeat       read(e);       a[i] : = e;       i: =i+1;   until e = 0;   m : = i;   if a[1] > a[2] then begin       r1.v : = a[1]; r1.p : = 1;       r2.v : = a[2]; r2.p : = 2   end   else begin       r1.v : = a[2]; r1.p : = 2;       r2.v : = a[1]; r2.p : = 1   end;   for i : = 3 to m do   begin       t.v : = a[i];       t.p : = i;       swap3e(r1, r2, t)   end;   writeln('максимальные значения имеют элементы с номерами ', r1.p, ' и ', r2.p);   writeln('сумма этих элементов равна ', r1.v + r2.v) end. контрольный пример: вводите числа, 0 - конец ввода 18 6 13 40 14 52 0 максимальные значения имеют элементы с номерами 6 и 4 сумма этих элементов равна 92

Микропроцессор (устройство, отвечающее за выполнение арифметических, логических операций и операций — процессор управления, записанных в машинном коде), реализованный в виде одной микросхемы или комплекта нескольких специализированных микросхем (в отличие от реализации процессора в виде электрической схемы на элементной базе общего назначения или в виде программной модели).