Дано x.выяснить,верно ли,что 0< =x< =.если верно,то должно быть выведено число 1,в противном случае-0

Паскаль:
uses crt;
const m = 1;
var x : real;
begin read(x); if (x >= 0) and (x <= m) then writeln(1) else writeln(0); readkey; end.