Для чего создоют библиотеки, орхивы, музеи и выстовычные салоны

Библиотеки для хранения книг

Музеи для интересных старых вещей

Да знаю глупо но так

Для того чтобы людям не было скучно.Чтобы они знали историю своей родины.

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

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

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.