Вводится последовательность неотрицательных целых чисел в количестве 5 штук,нужно найти кол-во четных и не четных цифр в ней,а также вывести максимальное не четное и минимальное нечетное число,если таких чиcел нет-сообщите это пользователю.
Паскаль.

Я Вас очень прошу! Если Вам не сложно....Помогите мне тоже, пожалуйста...( https://znanija.com/task/31209029

vari, a, even, odd, min, max : integer;beginmin := 30000;max := -1;for i:= 1 to 5 do beginread(a);if (a mod 2 = 0) then even:= even + 1else begin odd:= odd + 1; if (a > max) max := a; if (a < min) min := a; end;end;writeln('четных ', even);writeln('нечетных', odd);if (odd = 0)then writeln('нечетных чисел нет');else writeln('min =' min, ' max = ', max);end.что то такое, скорее всего есть синтаксические ошибки, т.к. пишу с телефона, надеюсь смысл поняли и сможете сами написать