Задается последовательность целых чисел. Сколько чисел отличается от первого на 1 ?Написать программу на паскале без использования массивов

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.