МНОГО ИНФОРМАТИКА 10 класс!
Определите результат работы функции при входном значении, равном 123456:

function qq(x: integer):integer;

var i, s: integer;

begin

s:=0;

for i:=1 to 3 do begin

s := s + x mod 10;

x := x div 10;

end;

qq := s;

end;

Напишите процедуру, которая выводит на экран переданное ей число в системе счисления, которая задается вторым параметром (от 2 до 10).

​