решить это задание очень надо

Объяснение:

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.