Паскаль абц
Ввести несколько чисел. Вывести числа от 20 до 75, кратные 4

var N, i: integer; // N - переменная хранения количества чисел, которое введет пользовательA: array[1..20] of integer; // массив, содержащий САМИ ЧИСЛА, которые введет пользователь beginwrite('Сколько чисел вы собираетесь ввести? ');readln(N); for i := 1 to N do beginwrite('Введите ', i, ' число: '); // ввод чиселreadln( A[ i ] );end;write('Из них числа от 20 до 75, кратные 4: ');for i := 1 to N do beginif ( A[ i ] >= 20 ) and ( A[ i ] <= 75 ) then // проверяем в каком промежутке лежит числоif ( ( A[ i ] mod 4 ) = 0 ) then write( A[ i ], ' '); // если число меньше 75 и больше 20, тогда проверяем кратно ли оно четырем. Если да, то выводим егоend;end.