Алгоритм сбора яблок:
1 яблоко 42 пикселя
2 яблоко на 1 меньше
= 41°
Var
n:integer;
begin
readln(n);
if n > 10 then writeln(n, ' > ', 10);
if n < 10 then writeln(n, ' < ', 10);
if n = 10 then writeln(n, ' = ', 10);
<span>end.</span>
614400 килобайт, надо просто кол-во символов умножить на кол-во строк, а потом полученный ответ надо умножить на кол-во страниц