Написать алгоритм выбора из трех входных действительных чисел принадлежащих
интервала (1,3).​

1 Program work1;

2 uses crt;  

3 var x,y,z: real;  

4 begin  

5 clrscr ;

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

7 readln(x);  

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

9 readln(y);  

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

11 readln(z);  

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

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

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

15 readln;

Объяснение:

https://ru-static.z-dn.net/files/dd2/796d7c2d2af92262840bd7209eb7f670.bmp картинка