ЦИКЛЫ!Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 10.var x, L, M: integer;begin readln(x); L := 0; M := 0; while x > 0 do begin L := L + 1; if M < x then begin M:=(x mod 10)*2; end; x := x div 10; writeln(L); writeln(M);end.Максимальное число у меня - 959.но я не уверенна