Uses crt;
var n, a, b, k:integer;
begin     k:=0;     
writeln ('Сколько цифр будет в строке?');     
read (n);     
writeln ('Вводите числа, после каждого ENTER.');     
read (b);     
for n:=1 to n-1 do     
begin     
read (a);     
if a+1=b then k:=k+1 else     
if a-1=b then k:=k+1;     
end;     
writeln ('Количество чисел отстающих на 1 от первого числа - ',k);
end.