Вводится число n, а затем - n чисел. определить, сколько среди них пар одинаковых чисел. 2< =n< =100. на паскале

Var   i, j, n, s: integer;   a: array[1..100] of integer; begin   read(n);   for i : = 1 to n do read(a[i]);   for i : = 1 to n - 1 do     for j : = i + 1 to n do       if a[i] = a[j] then inc(s);   write(s); end.

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108

1)

германия берлин

греция афины

испания мадрид

польша варшава

франция париж

 

2)

греция афины

германия берлин

польша варшава

испания мадрид

франция париж