Йцукенгшщзхъ program pokupka; var a, b, d, den: real; ostatok: real; beginwrite ('введите стоимость перчаток,портфеля и галстука'); readln (a,b,d); write ('введите количество имеющихся у вас денег'); readln (den); ostatok : =den - a - b - d; writeln ('после покупки у вас останется ', ostatok, 'руб.'); readln; end.