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

А) ночь - ноль - моль - мель - дель - день дель — мелкая сеть   б) рота - нота - бота - бола - пола - полк бота — испанский мешок для вина бола — испанское метательное оружие   в) бант - кант - карт - корт - кора - коса   г) бег - бел - мел - мех - мох - лoх - лог - лаг - шаг бел — единица громкости звука лoх — китайский кустарник лаг — прибор для измерения скорости судна   д) море - морг - торг - торт - сорт - борт - бура - сура - суша бура — минерал сура — раздел в коране   е) миг - мим - жим - жом - ком - кол - кок - вок - век вок — китайский котёл для жарки

Строка = молоко пока (есть буква о) делать начало если есть буква о  получаем индекс буквы о строке присвоить подстроку от 0 до индекса буквы 0 + от индекса буквы 0 до длинны строки конец если не понятно пиши в личку а если записать допустим на java то это будет выглядеть так string word = "молоко"; word = word.replaceall('o',''); или string word = "молоко"; int index = word.indexof('o'); while(index > 0 ){ word = word.substring(0,index) + word.substing(index+1,word.; index = word.indexof('o'); } как то так