Задается последовательность целых чисел. сколько чисел отличается от первого на 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.

Форма представления информации.

• текстовую (совокупность алфавитных, цифровых и специальных символов, с которых информация отображается на бумажном носителе или экране монитора);

• графическую (графики, диаграммы, схемы и рисунки);

• звуковую (звуковые сигналы и радиоволны, применяемые в радиовещании, телефонии);

• видеоинформацию (световые сигналы, воспринимаемые зрением);

• мультимедиаинформацию (текстовая, графическая, звуковая и видеоинформация, представляемая с компьютерных средств).

Запишем высказывания джона, брауна и смита в виде таблице, где o - это предположительный вор со слов одного из участников процесса, а x  - невиновный.           д         б         с д                 x         o б       x       x с                 o         x рассмотрим варианты: 1. джон сказал правду, тогда смит - вор, тогда имеем     джон 2 раза сказал правду     браун 2 раза сказал правду     смит 2 раза соврал.  этот вариант не подходит под условие . 2. браун сказал правду, тогда очевидно снова смит - вор,  тогда     джон 2 раза сказал правду     браун 2 раза сказал правду     смит 2 раза соврал.  этот вариант тоже  не подходит.  3. смит сказал правду, тогда браун - вор, тогда     джон 2 раза соврал     браун 1 раз соврал, один раз сказал правду.     смит 2 раза сказал правду.  вариант подходит. значит  браун - вор и не может быть оправдан. джон - оболгал невиновного человека (смита) и должен быть наказан за это. смит - не врал и не крал. следовательно смит должен быть оправдан.