Cоставьте программу,которая проверяет выполнениие условия a<b<c

Question

Cоставьте программу,которая проверяет выполнениие условия a

Answer 1

Var
a,b,c:real;
begin
Read(a,b,c);
if (a < b)and(b < c) then
    Writeln('YES')
else
    Writeln('NO');
end.