Даны три действительных числа 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<=5) and (x>=1) then writeln ('x-принадлежит интервалу') else writeln ('x не принадлежит и интервалу');

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

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

readln;