Написать программу (в паскале ) . определить сдачу после покупки булки хлеба и двух пакетов молока .

program Kassa;

var cash, bread, milk, cost, cashback: integer;

begin

writeln('Цена молока: ');

readln(milk);

writeln('Цена хлеба: ');

readln(bread);

writeln('Внесено денег: ');

readln(cash);

cost := milk + bread;

if cash < cost

then begin writeln('Недостаточно средств!'); end

else begin cashback := cash - cost; writeln('Сдача: ',cashback); end

end.