Скласти алгоритм збирання груш

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

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

    readln;

end.

(1 + 2):   3   = 1

1 * 2 + 3 - 4 =1

((1+2) : 3 + 4) : 5 =1

1 * 2 - 3 : (4 +5- 6) =1

1 * 2 + (3 + 4   +5) - (6 + 7) =1

((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1

1)false (т.к. x> y)

2)true (x< y,x не равен y)

3)false(x> y)

4)true(т.к. x=y, x не равен y)

в ms excel по умолчанию числа выравниваются по правому краю, текст по левому

но при ручном форматировании можно выравнивать как угодно