Написать программу ввода с клавиатуры и суммирования любого количества целых значений. условием выхода считать сумму значений равному числу 1000.

Var a,s : Integer;
Begin
  s:=0;
  While s<>1000 do
  Begin
    Readln(a); s:=s+a;
    Writeln('Текущая сумма: ',s);
  end;
end.