program example;var x,y:integer;begin writeln ('Введите число');readln(x);while x<>1 doif x mod 2=1 then begin x:=x*3+1;endelse begin x:=x div 2;end;y:=x;readln(y);writeln (1);end. Проблема в том, что раскаль выводит изначальный результат х, а нужно, чтобы был х спустя неКак узнать сколько операций. В чём я ошибся?