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

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