Question

Напишите программу, которая находит произведение двух наибольших чисел из последовательности натуральных чисел. программа получает на вход натуральные числа, количество чисел неизвестно (но не менее двух), ввод последовательности заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. значения чисел не превышают 30000. программа должна вывести одно число: произведение двух чисел, значения которых в данной последовательности наибольшие

Answer 1

var temp,max,max2:integer;

begin

   readln(temp);

   max:=0;

   max2:=0;

   while (temp<>0) do begin

      if(temp>max) then begin max2:=max; max:=temp; end

         else if(temp>max2) then max2:=temp;

      readln(temp);

   end;

   writeln(max*max2)

end.