Помогитенаписал прогу, но веб-сайт не воспринимает решение. В чем ошибка? И

Помогите

написал прогу, но веб-сайт не воспринимает решение. В чем ошибка? И можно ли по-иному составить программку?

Необходимо было найти 2-ой максимальный элемент
Последовательность состоит из разных естественных чисел и заканчивается числом 0. Обусловьте значение второго по величине элемента в этой последовательности.

Числа, последующие за числом 0, считывать не нужно.

program r1;
var max1,max2,k:longint;
begin
readln (k);
max1:=k;
max2:=k;
while klt;gt;0 do begin
readln (k);
if kgt;max1 then begin
max2:=max1;
max1:=k;
end;
end;
writeln (max2);
readln;
end.

Диана 2019-09-16 18:54:05

Через массив пробуй