Пользователь вводит трёхзначные числа с клавиатуры. Нужно вывести  числа в записи которых все 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.