Question

нужно написать программу на паскале

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

function Good(p:(integer,integer)):boolean;
begin
  var a:=p[0].ToString.ToHashSet;
  var b:=p[1].ToString.ToHashSet;
  Result:=a=b
end;

begin
  var n:=ReadlnInteger;
  ReadSeqInteger(n).Pairwise.Where(t->Good(t)).Count.Println
end.

Пример
5
12
2212
34
42402
402
2