Пользователь вводит 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.