Дано целое число х. составьте программу, которая выясняет, верно ли , что 0< =x< 1. на печать вывести да или нет.

Var x:real;
begin
readln(x);
if (0<=x) and (x<1) then
  writeln('Да')
  else writeln('Нет')
end.