Даны 3 числа a,b и c .Составьте программу которая проверяет выполнение условия : a

program yslovie;var a,b,c:real;beginWriteln('Введите а');Readln(a);Writeln('Введите b');Readln(b);Writeln('Введите c');Readln(c);if (b>a) and (b<c) then Writeln('Условие выполняется, ',a,'<',b,'<',c)else Writeln('Условие не выполняется')end.