Товар стоит a руб. b коп. за него заплатили c руб. d коп. сколько сдачи требуется получить? входные данные вводятся 4 числа: a, b, c и d. выходные данные необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно. объясните решение

Var a, b, c, d, e, f: integer;
begin
     readln(a, b, c, d);
     e := a * 100 + b;
     f := c * 100 + d;
     e := f - e;
     f := e mod 100;
     e := e div 100;
     writeln(e, ' rub. ', f, ' kop.');
end.