Объяснение:
program change;
var A, B, C, D, S: float;
begin
writeln ('Введите стоимость перчаток: ');
readln (A);
writeln ('Введите стоимость портфеля: ');
readln (B);
writeln ('Введите стоимость галстука: ');
readln (С);
writeln ('Введите сумму, которая выделена на покупку: ');
readln (D);
S:=D-C-B-A;
write ('Ваша сдача составит: ', S);
end.
