Выполни действие и запиши верный ответ. 28mod5=

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

program pr;

s: string;

begin

readln (s);

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

readln;

end.

мало данных для главное - размер пробоины и размер листа