Пользователь вводит 3 числа от 1 до 100.Выбрать то число которое больше 20 но меньше 50 и делится на 3 без остатка.

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] > 20)

               and (arr[i] < 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.