Задается последовательность целых чисел. Сколько чисел отличается от первого на…

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.