Ниже за­пи­са­на про­грам­ма. По­лу­чив на вход число x, эта про­грам­ма пе­ча­та­ет число L. Укажите, что будет напечатано, если в качестве х указать 396.

var x, L: integer;
begin
readln(x);
L:=0;
while x > 0 do
begin
L := L + x div 10;
x := x div 10;
end;
writeln(L);
end.