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

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