Даны действительные числа a, b, c. Проверить выполняются ли неравенства a < b < c. Delphi

Предыдущий
вопрос Следующий
вопрос

program CheckInequality;
var
a, b, c: real;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
write('Введите число c: ');
readln(c);

if (a < b) and (b < c) then
writeln('Неравенство a < b < c выполняется.')
else
writeln('Неравенство a < b < c не выполняется.');
end.