Автор - black2004kim
Program pokupka;
Uses crt;
Var a, b, d, den, ostatok: real;
begin
clrscr;
write ('введите стоимость перчаток, портфеля и галстука ');
readln (a, b, d);
write ('введите количество имеющихся у вас денег ');
readln (den);
oststok := den - a - b - c;
writeln ('после покупки у вас останется ', ostatok:5:2, 'руб. ');
readln;
End.