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

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

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

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