написать цикл, который суммирует введенные с клавиатуры числа

[harvey]

Оператор цикла while. Используя этот оператор, написать цикл, который суммирует введенные с клавиатуры числа, пока пользователь не введет любое отрицательное число.

[McFrey]

while (z>=0) do
begin
summ:=summ+z;
end;

[Mad_Cat]

var summ,z:real
begin 
summ:=0;z:=0;
while (z>=0) do 
begin 
summ:=summ+z;
readln(z);
end;
writeln(summ:6:2);
readln;
end.

[badnum23]

Ещё точнее:

readln(z);
while (z>=0) do 
begin 
summ:=summ+z;
readln(z);
end;