в паскале описать задачу 4) Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.

var dengi, a, b, c, d, ostatok: real;

begin

writeln (' Сколько у Вас денег? ');

readln (dengi);

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

readln (а);

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

readln (b);

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

readln (d);

ostatok: = dengi - a - b - d;

if ostatok < 0 then

writeln (' Вам не хватит денег на данную покупку, для совершения этой покупки Вам нужно ещё ', abs (ostatok), ' рублей ')

else

writeln (' У Вас останется ', ostatok, ' рублей ');

end.