{* Задача 3 *}

Unit ZADACH03;
Interface
Implementation
Begin
 writeln('Определения сдачи после покупки в магазине товара: перчаток стоимостью а руб., портфеля стоимостью б руб., галстука стоимостью с руб. Исходная сумма, выделенная на покупку d руб. В случае нехватки денег сдача получится отрицательной.');
End.

Program paszad3;

Uses zadach03.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  change : longint;
  per    : longint;
  por    : longint;
  gal    : longint;
  cash   : longint;
Begin
  clrscr; {* Очищаем экран *}
  write('введите стоимость перчаток-');
  readln(per);
  write('введите стоимость портфеля-');
  readln(por);
  write('введите стоимость галстука-');
  readln(gal);
  write('введите кол-во денег, имеущихся в наличии-');
  readln(cash);
  change := cash - (per + por + gal);
  writeln('Сдача - ', change, 'руб.');
End.