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

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