Определить, сколько ручек можно купить за c гривен и d копеек - Turbo Pascal

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

Одна ручка стоит a гривен и и копеек.Напишите программу которая определяет сколько ручек можно купить за c гривен и d копеек , а также сколько останется

Решение задачи: «Определить, сколько ручек можно купить за c гривен и d копеек»

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

var a,b,c,d,k:integer;
begin
writeln('Введите стоимость ручки, гривны и копейки');
readln(a,b);
writeln('Введите наличную сумму, гривны и копейки');
readln(c,d);
b:=100*a+b;
d:=100*c+d;
k:=d div b;
writeln('Можно купить ',k,' руч.');
if k>0 then
 begin
  a:=(d-k*b)div 100;
  b:=(d-k*b) mod 100;
  writeln('Останется ',a,' гр. ',b,' коп.');
 end;
end.

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

Создается переменная a и присваивается ей значение 0.
Создается переменная b и присваивается ей значение 0.
Создается переменная c и присваивается ей значение 0.
Создается переменная d и присваивается ей значение 0.
Выводится сообщение «Введите стоимость ручки, гривны и копейки».
Считывается значение переменной a и сохраняется в переменную a.
Считывается значение переменной b и сохраняется в переменную b.
Выводится сообщение «Введите наличную сумму, гривны и копейки».
Считывается значение переменной c и сохраняется в переменную c.
Считывается значение переменной d и сохраняется в переменную d.
Вычисляется значение переменной b как 100*a+b.
Вычисляется значение переменной d как 100*c+d.
Вычисляется значение переменной k как d div b.
Выводится сообщение «Можно купить k руч.».
Если значение переменной k больше 0, то вычисляются значения переменных a и b как (d-kb) div 100 и (d-kb) mod 100 соответственно.
Выводится сообщение «Останется a гр. b коп.».