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