var 
price, money:integer;

begin

writeln('Цена диска?');
readln(price);
writeln('Сколько у вас денег?');
readln(money);
if money >= price then
  writeln('У вас хватит денег!')
else 
  writeln('Вам нужно добавить ',price-money,' рублей')
end.