Помогиите! Нужно написать программу которая определяет является…

Если число не очень длинное, то можно считать в стринг. Но если число длинное, то это не прокатит varq: string; i,a,n: integer; beginreadln (q): n: =length (q); for i: =1 to n doa: =strtoint (q[i]); if a mod 2=0 then writeln ("YES) else writeln ("NO"); end.