Выполнив предыдущее задание, проведите трассировку алгоритма Евклида для нахождения НОД чисел 128 и 56

Извиняюсь за полусишный кодprocedure swap(var a:integer; var b;integer)var c:integer;beginc := a; a := b; b := c;end;function nod(a, b:integer):integer;beginwhile b <> 0 dobegin writeln(a, ' ', b); // тут трассировка выводится a = a mod b; swap(a, b);endend;beginwriteln(nod(128,56));end.