Дан текст решения
var n, a, pr, i, count:longint; begin read(n); read(pr); count:=0; for i:=2 to n do begin read(a); if not (a-pr = 1) then count += 1; pr:=a; end; write(count); end.
500 ms 256 Mb Правила оформления программ и список ошибок при автоматической проверке задач