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

Думаю, на Паскале пойдет.var summa, k: longint;begin  summa := 0;  read(k); {Считываем первое число}  while k <> 0 do begin    summa := summa + k;    read(k);  end;  write(summa);end.