Помогите пожалуйста решить в Pascal очень нужно

Вот пример программы на языке Pascal, которая запрашивает N чисел и проверяет, есть ли среди них хотя бы одно четное число:

pascal
program CheckEvenNumber;

var
N, num, i: integer;
hasEvenNumber: boolean;

begin
hasEvenNumber := false;

write('Введите количество чисел (N): ');
readln(N);

for i := 1 to N do
begin
write('Введите число ', i, ': ');
readln(num);

if num mod 2 = 0 then
begin
hasEvenNumber := true;
break; // Выходим из цикла, если найдено четное число
end;
end;

if hasEvenNumber then
writeln('Среди введенных чисел есть четное число.')
else
writeln('Среди введенных чисел нет четного числа.');

readln;
end.

В этой программе мы используем переменную `hasEvenNumber`, чтобы отслеживать, было ли найдено хотя бы одно четное число. В цикле мы запрашиваем N чисел и проверяем каждое число с помощью оператора `mod`, который возвращает остаток от деления. Если остаток от деления числа на 2 равен 0, то число является четным.

Если в цикле найдено четное число, мы устанавливаем переменную `hasEvenNumber` в значение `true` и выходим из цикла с помощью оператора `break`. После завершения цикла мы проверяем значение `hasEvenNumber` и выводим соответствующее сообщение.