Задача Про музыкальный диск - Pascal

Формулировка задачи:

Музыкальный диск стоит x рублей n копеек, У вас имеется а рублей b копеек. Хватит ли вам денег на покупку диска ? В программе предусмотрите вывод слов 'Да' или 'Нет'. В случае недостатка определите, сколько денег надо добавить .

Решение задачи: «Задача Про музыкальный диск»

Листинг программы

var x,n,a,b,sd,nd:integer;
begin
repeat
writeln('Введите стоимость диска руб и коп');
readln(x,n);
until(x>=0)and(n in [0..99]);
repeat
writeln('Введите наличие денег руб и коп');
readln(a,b);
until(a>=0)and(b in [0..99]);
sd:=100*x+n;//стоимость диска в копейках
nd:=100*a+b; //наличие денег в копейках
if nd>=sd then write('Да')
else write('Нет, не хватит ',(sd-nd)div 100,' руб. ',(sd-nd)mod 100,' коп.')
end.

Объяснение кода листинга программы

В первой части цикла пользователю предлагается ввести стоимость диска в рублях и копейках.
Вторая часть цикла запрашивает наличие денег у пользователя.
Переменная sd вычисляет стоимость диска в копейках.
Переменная nd вычисляет наличие денег у пользователя в копейках.
Если наличие денег больше или равно стоимости диска, то выводится сообщение Да.
Если наличие денег меньше стоимости диска, то выводится сообщение Нет, не хватит и указывается сумма в рублях и копейках, которой не хватает для покупки диска.