Маємо нескінчену послідовність із цих чисел, перше з нихклавіатури 0, а кожне наступне на d більше. Програма повинна вивести суму перших n чисел в цій послідовності , включаючи і число 0 . Значення параметрів d і n запитуєься у користувача не початку.

Порядок действий:
1 Отрицание-инверсия(не, обозначается - )
2Действия в скобках
3 Конъюнкция-умножение(и, обозначается&)
4 Дизъюнкция-сложение(или, обозначается галочкой)
истина-1,ложь-0 
например:
1галочка0&1 следуя по всем законам математики, сначала выполняется умножение т.е & значит 0*1=0, а затем выполняем сложение(галочка) 1+0=1 следовательно ответ истина
1) 1&0=0-ложь
2)1 галочка0=1-истина
3) не 1 галочка 0 - 0+0=0-ложь
4)1 & 0 галочка 1=1*0+1= 1-истина
5)1 галочка 0&1=1+0*1=1-истина
 6)не1 галочка 0 &1=0+0*1=0-ложь
7)(1галочка0) &(1галочка0)=(1+0)*(1+0)=1*1=1-истина
8)не(1галочка0) & (1галочка0)=не(1+0)*(1+0)=не1* 1=0*1=0-ложь
9)не(1&0&1)=не(1*0*1)=не(0*1)=не0=1-истина

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.