Даны три действительных числа x,y,z. Напечатать те из них, которые принадлежат интервалу [-1,3]- Pascal(Паскаль)

var
 x, y, z: integer;
begin
 read(x, y, z);
  if (x>=-1) and (x<=3) then
   begin
    write(x, ' ');
   end;
  if (y>=-1) and (y<=3) then
   begin
    write(y, ' ');
   end;
  if (z>=-1) and (z<=3) then
   begin
    write(z, ' ');
   end;
end.