Составить программу для решения данной задачи в Паскале
Условие надо давать полностью, чтобы не было разночтений, как сейчас.
Var i,N:integer;
begin
Read(i,N);
N:=N-i;
Write(N);
end.
Если i это количество белых шаров, а N общее количество шаров то вот так