Блок-схема придумайте алгоритм, вводящий три целых числа, который находит второе по величине число, если оно существует.

Var a,b,c:Real;beginWriteln('a');Readln(a);Writeln('b');Readln(b);Writeln('c');Readln(c);if (a>b)and (a<c )or (a>c) and (a<b) then writeln(a);if  (a<b) and (B<C) or (a>b)and(b>c) then writeln(b);if (a<b)and (a>c )or (a<c) and (a>b)or (a<c) and (a<b) then  writeln(c);end.