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

Это с предусловием можно с послусловием

var n, sum: integer;begin sum := 0; repeat sum := sum + n; read(n); until n < 0; writeln(sum);end.

В следующий раз пишите в условии

Большое спасибо,спасли

Пожалуйста