Написать программу в паскале для определения сдачи после покупки в магазине товара: перчаток стоимостью а руб., портфеля стоимостью b руб., галстука стоимостью с руб. исходная сумма, выделенная на покупку d руб. в случае нехватки денег соответствующее сообщение.
Begin
Write('a b c d ? ');
Readln(a,b,c,d);
If a+b+c>d then Writeln('не хватает денег') else Writeln('Сдача (руб.): ',d-(a+b+c));
end.