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.