Написать программу которая находит среднее арифметическое пяти целых нечетных чисел, вводимых с клавиатуры

//Среда Паскаль Uses crt; var a, b, c, d, e: integer; begin writeln ('Введите числа'); readln(a,b,c,d,e); if (a mod 2)=0 then writeln ('Ошибка ввода') else if (b mod 2)=0 then writeln ('Ошибка ввода') else If (c mod 2)=0 then writeln ('Ошибка ввода ') else If (d mod 2)=0 then writeln (' Ошибка ввода ') else If (e mod 2)=0 then writeln (' Ошибка ввода ') else Writeln ((a+b+c+d+e) /5); End.