Составьте алгоритм и программу для определения сдачи после покупки в магазине товара: перчаток стоимостью а руб., портфеля стоимостью б руб., галстука стоимостью с руб. Исходная сумма, выделенная на покупку d руб. В случае нехватки денег сдача получится отрицательной.
uses crt;
var
change, per, por, gal, cash: longint;
begin;
clrscr;
write('введите стоимость перчаток-');
readln(per);
write('введите стоимость портфеля-');
readln(por);
write('введите стоимость галстука-');
readln(gal);
write('введите кол-во денег, имеущихся в наличии-');
readln(cash);
change := cash - (per + por + gal);
writeln('Сдача - ', change, 'руб.');
end.