даны три реальных числа x y z найти какое из их

Program work1;

uses crt;  

var x,y,z: real;  

begin  

clrscr ;

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

readln(x);  

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

readln(y);  

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

readln(z);  

if (xlt;=5) and (xgt;=1) then writeln ('x-принадлежит промежутку') else writeln ('x не принадлежит и промежутку');

if (ylt;=5) and (ygt;=1) then writeln ('y- принадлежит интервалу') else writeln ('y не принадлежит и промежутку');

if (zlt;=5) and (zgt;=1) then writeln ('z-принадлежит интервалу') else writeln  ('z не принадлежит и промежутку');  

readln;