Даны три действительных числа x y z определить какое из них принадлежит интервалу 1,5

Запишите программу

Program work1;

uses crt;

var x, y, z: real;

begin

clrscr;

writeln ('введите число x') ;

readln (x) ;

writeln ('введите число y') ;

readln (y) ;

writeln ('введите число z') ;

readln (z) ;

if (x=1) then writeln ('x-принадлежит интервалу') else writeln ('x не принадлежит и интервалу') ;

if (y=1) then writeln ('y - принадлежит интервалу') else writeln ('y не принадлежит и интервалу') ;

if (z=1) then writeln ('z-принадлежит интервалу') else writeln ('z не принадлежит и интервалу') ;

readln;