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

Женя

если число не очень длинное, то можно считать в стринг. но если число длинное, то это не прокатит

 

var

q:string;

i,a,n:integer;

 

begin

readln(q):

n:=length(q);

for i:=1 to n do

a:=strtoint(q[i]);

if a mod 2 = 0 then writeln("YES) else writeln("NO");

 

end.