Вывести значения частей, начиная с первого, так что бы значение выводимого

var a,b:integer;
begin
nbsp;nbsp;read(a);
nbsp;nbsp;write(a, );
nbsp;nbsp;b:=a;
nbsp;nbsp;while alt;gt;0 do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;read(a);
nbsp;nbsp;nbsp;nbsp;if nbsp;абс(a-b)lt;=1000
nbsp;nbsp;nbsp;nbsp;then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(a, );
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;b:=a;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;end;
end.