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

var a:string;s:integer;beginwrite('Введите трехзначное число: ');readln(a);s:=StrToInt(a[1])+StrToInt(a[2])+StrToInt(a[3]);if s mod 2=0 then writeln('Да, верно') else writeln('Нет, не верно')end.