Вопрос, который вызвал трудности

Вывести значения элементов, начиная с первого, так что бы значение выводимого элемента отличалось от значения предыдущего (программа Паск

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

var a,b:integer;
begin
  read(a);
  write(a,);
  b:=a;
  while a<>0 do
  begin
    read(a);
    if  abs(a-b)<=1000
    then
      begin
        write(a,);
        b:=a;
      end;
  end;
end.