решить. Под номером 9

На рисунке зачеркнуты, дороги, которые не удовлетворяют условию.

А(1)

Б=А=(1)

Г=А+Б=1+1=(2)

В=Б+Г=1+2=(3)

Д=А=(1)

Е=Г+Д=2+1=(3)

Ж=В+Г+Е=3+2+3=(8)

К=В+Ж=3+8=(11)

Л=К+Ж=11+8=(19)

М=Л=(19)

П=Л+М=19+19=(38)

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}