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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.