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

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

Using system; public class test { public static void main() { int n, a, b; console.write("введите номер : \n"); console.write("1 - вычисление максимального числа; \n"); console.write("2 - вычисление минимального числа; \n"); console.write("3 - вычисление суммы чисел.\n"); console.write("4 - вычисление произведения чисел.\n"); n = int.parse(console.; console.write("введите два числа: \n"); a = int.parse(console.; b = int.parse(console.;     switch (n) {     case 1 :       if (a> b) console.write("max = {0}",a);     else console.write("max = {0}",b);     break;     case 2 :     if (a< b) console.write("min = {0}",a);     else console.write("min = {0}",b);     break;     case 3:     console.write("s = {0}",a+b);     break;     case 4:     console.write("п = {0}",a*b);     break;     } } } пример: введите номер : 1 - вычисление максимального числа; 2 - вычисление минимального числа; 3 - вычисление суммы чисел.4 - вычисление произведения чисел.4введите два числа: 58п = 40

Var a: array[1..10] of integer; begin k: =0;           for i: =1 to 10 do begin           writeln('введите 10 чисел'); readln(a);           max: =a[i]; min: =a[i]           for i: =2 to 10 do begin           if a[i]> max then max: =a[i];           if a[i]< min then min: =a[i];   end;           s: =(min+max)/2;           for i: =1 to 10 do begin           if a[i]< s then k: =k+1; end;           writeln(k); end.