Составьте программу проверяющую верно ли что сумма цифр введенного целого 3х значного числа является нечетным паскаль

vara,sum:integer;beginreadln(a);sum:= a div 100 + a div 10 mod 10 + a mod 10;if (sum mod 2 = 0) thenwriteln('Сумма чисел: ',sum,' Число является четным.')elsewriteln('Сумма чисел: ',sum,' Число не является четным.');end.