Задача 1.
var N,k:longint;
ss:string;
begin
writeln('N=?');
readln(N);
ss:='';
k:=9;
while k>1 do
begin
while N mod k=0 do
begin
N:=N div k;
ss:=chr(k+byte('0'))+ss;
end;
dec(k);
end;
if ss='' then writeln(0) else writeln(ss);
readln;
end.
Лист тестирования

Задача 2.
function sl(n2,k,m:longint):longint;
var n1:longint;
begin
n1:=k-1;
repeat
n1:=n1+1;
until n2=(n1 div k)*m+(n1 mod k);
sl:=n1;
end;

var i,n,k,m:longint;
begin
writeln('k,m=?');
readln(k,m);
n:=k;
for i:=1 to 4 do
n:=sl(n,k,m);
writeln('n= ',n);
readln;
end.
Лист тестирования