program RLN;
var a,b,c,d,e,k:real;
begin
writeln ('Сколько денег у человека перед покупками?');
read (c);
writeln ('Сколько стоят перчатки?');
read (a);
writeln ('Сколько стоит портфель?');
read (b);
writeln ('Сколько стоит галстук?');
read (d);
e:=a+b+d;
k:=c-e;
write ('Осталось денег: ');
write (k);
end.