Условие: Проверить, образуют ли введенные символы А, В, С целое трехзначное четное число

Var
n1,n2,n3: byte;
t:boolean;
Begin
readln(n1,n2,n3);
t:=(n1*100+n2*10+n3) mod 2=0;
writeln(t);
End.

var
  a, b, c: char;
  t: boolean;
 
begin
  Write('a='); Readln(a);
  Write('b='); Readln(b);
  Write('c='); Readln(c);
  t := (a in ['1'..'9']) and (b in ['0'..'9']) and (c in ['0', '2', '4', '6', '8']);
  Writeln(t);
end.

var
  a, b, c: char;
  t: boolean;
 
begin
  Write('a='); Readln(a);
  Write('b='); Readln(b);
  Write('c='); Readln(c);
  try
    t := ((StrToInt(a) * 100 + StrToInt(b) * 10 + StrToInt(c)) mod 2 = 0) and (StrToInt(a) > 0);
    Writeln(t);
  except
    Writeln('Ошибка');
  end;
end.

var
  s: string;
  t: set of char;
  f1,f2,f3: boolean;
  
begin
  write('Введите три символа: ');
  readln(s);
  writeln;
  t := ['0','1','2','3','4','5','6','7','8','9'];
  f1 := s[1] in t;
  f2 := s[2] in t;
  f3 := s[3] in t;
  f1 := f1 and f2 and f3 and (length(s) = 3) and (strtoint(s[3])mod 2 = 0);
  writeln('Проверить истинность высказывания:');
  writeln(' "Введенная строка является четным трехзначным числом"');
  writeln;
  writeln(' ', f1);
end.