program primer;
Var m,n,x:integer;
begin
writeln('Введите стоимость диска');
readln(m);
writeln('Введите количество имеющихся денег');
readln(n);
if m>n then
write('У вас недостаточно денег для покупки')
else if n>=m then begin
x := n-m;
writeln('Ваша сдача ',x);
end
else
write('Ошибка');
end.
Объяснение:
Для начала определяем 3 переменных: для стоимости диска, имеющихся у нас денег и сдачи. Если стоимость диска больше чем у нас денег, то выводится сообщение о недостатке денег для покупки, если же денег хватает или ровно столько, сколько нужно, то выводим сдачу. Всё что иначе - ошибка
