Блок-схема Придумайте алгоритм, вводящий три целых числа, который находит второе по величине число, если оно существует.
Var a,b,c:Real;beginWriteln('a');Readln(a);Writeln('b');Readln(b);Writeln('c');Readln(c);if (a>b)and (ac) and (ab)and(b>c) then writeln(b);if (ac )or (ab)or (a<c) and (a<b) then writeln(c);end.