Амнкеь. аскстеа ппрсиау секдиат агубам чевистер

5.

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.