Question

найти сумму случайных чисел до тех пор пока не выпадет 0 каждая из случайных чисел вывести на экран

Answer 1

var a,b:shortint;

begin
  randomize;
  repeat
    a:=random(-16,16);
    b:=random(-16,16);
    write(a,' ',b, ', ')
  until (a=0) and (b=0)
end.

Answer 2

Спасибо огромное!