Проверить выполняется ли неравенство a

program try;
var
a,b,c :real;
begin
readln(a,b,c);
if (a<b) and (b<c) then
writeln('Неравенство выполняеться')
else 
writeln('Неравенство не выполняеться');
end.