Составить программу, которая вычисляет сумму вводимых с клавиатуры целых чисел до ввода...

Question

Составить программу, которая вычисляет сумму вводимых с клавиатуры целых чисел до ввода отрицательного числа и выводит на экран значение вычисленной суммы.

Answer 1

Var a,b,s:integer; 
begin 
s:=0; 
repeat  
readln(a); 
s:=s+a;   
until a<0; <br>writeln(s); 
end.