Пользователь вводит 3 числа от 1 до 100.Выбрать то число которое

var
    i, y : integer;                              // объявляем переменные целочисленного типа.
    arr : array [1..3] of integer;        // объявляем массив.
Begin
   writeln (Введите три числа от 1 до 100:);          // вывод строки на экран.
   for i:= 1 to 3 do                // начало цикла.
      begin
            read(arr[i]);              // считываем значения, введенные с клавиатуры.
            if ((arr[i] gt; 20)

               and (arr[i] lt; 50)

               and (arr[i] mod 3 = 0)) then             // проверяем условия задачки.
                    begin
                       writeln(Число , arr[i], больше 20, меньше 50 и делится без остатка на 3!); 
                        y := 1;     // признак того, что отыскали число, подходящее под условия задачи.
                    end;
       end;
  if y = 0 then write(Ни одно из введенных чисел не удовлетворяет условиям задачи!); 

End.