Народ помогите сделать задачи на паскале срочно!!

[ddeman666]

1) Даны четыре числа a,b,c,d. Найти пару чисел, отличающуюся друг от друга на две единицы.
2) Дано натуральное n и символы S1, ....,Sn.Подсчитать общее число вхождений символов "+","-","*" в последовательность S1,...,Sn.

[IT-man]

1)

if abs(a-b)=2 then writeln(a,b);
if abs(b-c)=2 then writeln(c,b);
if abs(c-d)=2 then writeln(c,d);
if abs(a-d)=2 then writeln(a,d);
if abs(a-c)=2 then writeln(a,c);
if abs(d-b)=2 then writeln(d,b);

2

for i:=1 to n do
if (s[i]='*') or (s[i]='+') or (s[i]='-') then inc(count);