201. Выполните алгоритм для заданных чисел.Если вы выполните, то я вам положу 50 рублей на электронный кошелек!

Программа для проверки на паскале:

Program A; var x,y:real; beginwriteln('Введите х и y');readln(x,y);if x=y then writeln(x) elsewhile x<>y dobeginif x>y then x:=x-y else y:=y-x;writeln(x,' ',y);end;writeln(x)end.

Исходный Х: 9                          Исходный Y: 14Промежуточный Х:                 Промежуточный Y:      Результат Х: 9                                                   5                                     14                                                   54                                                   13                                                   12                                                   11                                                   1Исходный Х: 12                          Исходный Y: 90Промежуточный Х:                 Промежуточный Y:      Результат Х: 12                                                78                                    612                                                6612                                                5412                                                4212                                                3012                                                1812                                                 66                                                   6