var
a, b, c, d:real;
begin
writeln('Введите стоимость
перчаток');
readln(a);
writeln('Введите стоимость
портфель');
readln(b);
writeln('Введите стоимость
галстука');
readln(c);
writeln('Введите сумму выделенную
на покупку');
readln(d);
writeln('Сдача составляет: ', d-a-b-c);
end.