Задание B8 из ЕГЭ 2013

var x, L, M: integer;
BEGIN
readln(x);
L := 0;
while x >= 9 do
begin
L := L + 1;
x := x - 9;
end;
M := x;
if M < L then
begin
M := L;
L := x;
end;
writeln(L); writeln(M);
END.

var x, a, b: integer;
begin
 readln(x);
 a:=0; b:=1;
  while x>0 do
  begin
      a:=a+1;//если а=3, число трехзначное
      b:=b*(x mod 10);//если b=7 , то число состоит из 117
      x:= x div 10;   //максимальное=711
  end;
  writeln(a); write(b);
end.

//поскольку в конце обмениваем числа, если  M < L
//то либо М=3, L=7, либо М=7, L=3
uses crt;
var x, L, M: integer;
BEGIN
readln(x);
L := 0;
while x >= 9 do //пока число больше или равно 9
 begin
  L := L + 1;// максимально 7 раз
  x := x - 9;//останется минимум 3, значит число=7*9+3=66
end;
M := x;//запомним х
if M < L then//если меньше, обмениваем
 begin
  M := L;
  L := x;
 end;
writeln(L); writeln(M);
END.