Program Tema;
var t:array[1..100] of integer;
n,i,nr:integer;
Begin
nr:=0;
writeln('Introduceti nr de elemente: ');
readln(n);
writeln('Introduceti elementele: ');
t[i]:=1;
for i:=2 to n do
begin
read(t[i]);
if abs(t[i]-t[i-1])=1 then
nr:=nr+1;
end;
writeln('Nr de perechi este: ',nr);
End.