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