Пользователь вводит трёхзначные числа с клавиатуры. Нужно вывести числа в записи которых все 3 цифры чётные. На языке Pascal. Помогите с написанием программного кода

Uses crt; var a:array[1 ... 100] of integer;

b, k, l, i, n:integer;

begin

writeln ('Skolko chesel vy bydete vvodit?') ;

read (n) ;

for i:=1 to n do begin

write ('Vvedite ', i,' chislo: ') ;

read (a[i]) ;

end;

for i:=1 to n do begin

b:=a[i] div 100;

k:=a[i] div 10 mod 10;

l:=a[i] mod 10;

if (b mod 2 = 0) and (k mod 2 = 0) and (l mod 2 = 0) then writeln (a[i]) ;

end;

end.