с созданием задачи в паскале

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

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

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.

смотри описание блок схемы на картинке

я так понимаю это раздел 3 .10

про животных в каждом  множестве ?

множества:

животных на рисунке-10

птиц -5

животных, кот.умеют летать-6

птиц которые умеют летать-3

птиц которые не умеют летать -2

животных,которые не летают и не птицы-2

слева на рисунке :

в круге вне овала- пингвин , страус

на пересечении круга и овала -сова, попугай лебедь

в овале вне круга - шмель стрекоза, летучая мышь

в квадрате за пределами круга и  овала -змея . белка