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

Var i,N:integer;

begin

Read(i,N);

N:=N-i;

Write(N);

end.

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