Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3] (программа Паскаль)

Question

Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3]

Answer 1

USES Crt;
VAR
  X, Y, Z: INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите три целых числа');
  ReadLn(X,Y,Z);
  IF (X>=1) AND (X<=3) Then WriteLn('Первое число принадлежит заданному интервалу')
                                         Else WriteLn('Первое число не принадлежит заданному интервалу');
  IF (Y>=1) AND (Y<=3) Then WriteLn('Второе число принадлежит заданному интервалу')
                                         Else WriteLn('Второе число не принадлежит заданному интервалу');
  IF (Z>=1) AND (Z<=3) Then WriteLn('Третье число принадлежит заданному интервалу')
                                         Else WriteLn('Третье число не принадлежит заданному интервалу');
END.