===PascalABC.Net===

program brainly;

var

  a, b, c, d :integer;

begin

 WriteLn('Программа оределяет сдачу после покупки.');

 Write('Введите стоимость перчаток: ');

 ReadLn(a);

 Write('Введите стоимость портфеля: ');

 ReadLn(b);

 Write('Введите стоимость галстука: ');

 ReadLn(c);

 Write('Введите количество выделенных денег: ');

 ReadLn(d);

 Write('Ваша сдача составила: ', d - a - b - c);

end.