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.
begin
writeln('Цена перчаток: ');
readln(a);
writeln('Цена портфеля: ');
readln(b);
writeln('Цена галстука: ');
readln(c);
writeln('Внесенная сумма: ');
readln(d);
writeln('Сдача: ', d-a-b-c)
end.