Процедуры с числовыми параметрами.

[Wild_klas]

Здравствуйте, У нас была новая тема:Процедуры и функции. Процедуры с числовыми параметрами. Сидел на лекции изо всех сил пытался понять, но так и не получилось, препод был не в духе. Вся надежда на вас.
Моя задача такова:
Описати процедуру AddLeftDigit(D, K), що додає до цілого додатньго числа K ліворуч цифру D (D — вхідний параметр цілого типу, що належить діапазону 1–9, K — параметр цілого типу, що є одночасно і вхідним і вихідним). За допомогою цієї процедури послідовно додати до заданого числа K ліворуч задані цифри D1 і D2, виводячи результат кожного додавання. Подскажите пожалуйста.

[MadReason]

виводячи результат кожного додавання

Оо даже боюсь представить что нужно выводить))

требуется написать процедуру с 2мя входными параметрами D и K. и приписать слева к К цифру D?

[Mad_Cat]

procedure addleftDigit(d:byte;var k:integer);
var mn:integer;
  res:integer;
begin
res:=0;
mn:=1;
while k<>0 do
begin
res:=res+(k mod 10) *mn;
mn:=mn*10;
k:=k div 10;
end;
k:=d*mn+res;
end;

[Wild_klas]

Спасибо Вам, Mad_Cat.