Pascal abc. виконати побудову програми: даны действительные числа a, b, c. проверить выполняется ли неравенство a < b < c.

Var a,b,c:real;
begin;
readln(a);
readln(b);
readln(c);
if (a<b) and (b<c) then writeln('Yes') else writeln('No');
end.