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

program Kassa;

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

begin

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

readln(milk);

writeln('Стоимость хлеба: ');

readln(bread);

writeln('Внесено средств: ');

readln(cash);

cost := milk + bread;

if cash lt; cost

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

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

end.