Question

СРОЧНА!!!!!БАЛЛЫ БОЛЬШИЕ!!!!!
ПОЖАЛУЙСТА ПОМОГИТЕ!!!!!
ИНФОРМАТИКА СРОЧНА!!!!!

Answer 1

Ответ:

Должна работать.

Объяснение:

program Summa;

Var sum, chislo: integer;

begin

 readln(chislo);

 while chislo >= 0 do

 begin

   sum := sum + chislo;

   readln(chislo);

 end;

 write(sum);

end.