Написать программу подсчета суммы вводимых элементов до первого отрицательно числа в pascal

//Pascal
var n, sum: integer;
begin
  sum := 0;
  while (n >= 0) do
  begin
    sum := sum + n;
    read(n);
  end;
  writeln(sum);
end.