Решите очень надо чччееенн

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

Программа на C++ во вложении. Одновременно в памяти хранятся предыдущий и текущий члены последовательности, если текущие члены всегда строго больше предыдущих, последовательность возрастающая.

#include <iostream>
#include <cstdio>

int main() {
   std::size_t n;
   std::cin >> n;
   bool isIncreasing = true;
   float previous, current;
   std::cin >> previous;
   while (--n) {
       std::cin >> current;
       if (previous >= current) {
           isIncreasing = false;
           break;
       }
       previous = current;
   }
   std::cout << "The sequence is " << (isIncreasing ? "" : "NOT ") << "increasing";
   return 0;
}