Дайте ответ пожалуйста!!!
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.
var x, a, b : integer;
begin
readln(x);
a := 0; b := 1;
while x > 0 do begin
a := a + 1;
b := b * (x mod 8);
x := x div 8;
end;
writeln(a); write(b);
end.

А вот эту можете помочь? Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 7.var x, i, K, R, y: integer;begin readln(x); K := 0; R := 9; y := x mod 10; while x > 0 do begin K := K + 1; if R > x mod 10 then R := x mod 10; x := x div 10 end; R := y - R; writeln(K); writeln(R)end.

спасибо)