В результате выполнения фрагмента программы while n < > 0 do begin write ( 2*(n mod 10)+1);

15/22 + 3 1/6 : х = 1 6/33
15/22 + 19/6 : х = 39/33
15/22 + 19/6 : х = 13/11
19/6 : х = 13/11 - 15/22
19/6 : х = 26/22 - 15/22
19/6 : х = 11/22
19/6 : х =  1/2
1/2х  = 19/6
х = 19/6 : 1/2
х = 19/3 = 6 1/3