Составить программу для решения данной задачи в Паскале

Question

Составить программу для решения данной задачи в Паскале

---

Comments

Условие надо давать полностью, чтобы не было разночтений, как сейчас.

Answer 1

Var i,N:integer;

begin

Read(i,N);

N:=N-i;

Write(N);

end.

Если i это количество белых шаров, а N общее количество шаров то вот так