Одномерный массив. Строковые величины.

[Natochka]

1.Напишите программу подсчёта суммы произведений последовательных пар элементов в целочисленном массиве из 20-ти элементов.Это значит, что нужно сосчитать (1*2)+(3*4)+.....+(19*20)

2.Подсчитайте, сколько символов слова x используется при написании слова y.

[Хамяг]

var
  A: array [1..20] of Integer;
  N,i,s: Integer;

begin
  Randomize;
  Readln(N);
  for i:=1 to N do A[i]:=Random(10);
  s:=0;
  for i:=1 to N div 2 do s:=s+A[2*i-1]*A[2*i];
  for i:=1 to N do Write(A[i],' ');
  Writeln;
  Writeln(s);
  Readln;
end.

var
  X,Y: String;
  C1,C2: set of Char;
  i,e: Integer;

begin
  C1:=[];
  C2:=[];
  Readln(X);
  Readln(Y);
  for i:=1 to Length(X) do C1:=C1+[X[i]];
  for i:=1 to Length(Y) do C2:=C2+[Y[i]];
  C1:=C1*C2;
  e:=0;
  for i:=0 to 255 do if Char(i) in C1 then e:=e+1;
  Writeln(e);
  Readln;
end.

[Natochka]

Большое спасибо!!!=)

[rrrFer]

первая:

predicates
	p( integer, integer )
clauses        
	p( N, S ) :-
		N<0,S=0;
		N mod 2 = 0,
		NN = N - 2,
		p( NN, SS ),
		S = SS + N*(N-1);
		NN = N-1,
		p(NN,S).
goal
    p( 20,S ),
    write(S).

если N нечетно - то считается для N-1