Какие общие черты имеют инкрементная и эволюционная модели?

Для чего необходим выбор модели жизненного цикла

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

4 клетки вниз и 7 вправо                                                                                                                           

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб