Дна последовательность неотрицательных чисел, последнее из которых

Равно нулю: причем других равных нулю чисел в последовательности нет. Найти последнее число, больше десяти, в этой последовательности. Если таких чисел нет, напечатать ноль.

Var a, k: real
BEGIN
uses crt; clrscr;
write (Vvedite 1 chlen posledovatelnosti); readln (a);
k:=0;
while a > 0 do
begin
if (a > 10) then k := a;
write (Vvedite ocherednoy chlen posledovatelnosti); readln (a);
end;
writeln (k);
END.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.