Написал прогу, но сайт не принимает решение. в чем ошибка? и можно ли по-другому составить программу? нужно было найти второй максимальный элемент последовательность состоит из различных натуральных чисел и завершается числом 0. определите значение второго по величине элемента в этой последовательности. числа, следующие за числом 0, считывать не нужно. program r1; var max1,max2,k: longint; begin readln (k); max1: =k; max2: =k; while k< > 0 do begin readln (k); if k> max1 then begin max2: =max1; max1: =k; end; end; writeln (max2); readln; end.
