2.12

//pascal-compiler
//Вводить с клавиатуры последовательность вещественных чисел до 0 (сам 0 не входит в
//последовательность). Найти второе максимальное значение из них (если оно есть).
//В решениях задач этой темы необходимо программировать циклические
//алгоритмы, основанные на наиболее подходящих видах операторов цикла.
//Массивы и иные структуры применять нельзя.
program example;
var max, a, b:real;
begin
//переменная которая ограничивает до нуля
max:=0;
//начало цикла
repeat
//вывод в консоль просьбы о вводе
write ('Ведите число:');
//инициализация ввода с клавиатуры
readln (a);
//вывод а
writeln(a);
//второе максимальное число(1е число а)
b:=a;
//выполнять ввод пока а не станет больше либо равным 0
until a>=max;
writeln ('число должно быть real и не 0',a);
writeln('второе максимальное равно',b);
readln
end.