1.считаем количество символов и умножаем их на 8 = 240 бит.
<em>В порядке возрастания количества страниц:</em>
АГВБ
Uses crt;
var a:integer;
begin
readln(a);
if (a mod 2 =0) then writeln('четное') else writeln('нечетное');
if (a mod 10=7) then writeln('оканчивается на 7') else writeln('не оканчивается на 7');
end.