program tabl;
uses crt;
 procedure Autor;
begin
writeln('Kozlitina,PM48,zada4a 1,variant 11');
writeln('Zadanie:vivesti tablicu umnoweniya v sisteme s4isleniya s celim osnovaniem 1<k<10');
end;
const s='C:\tmp12.out';
var n,i,j:byte;
    f:text;
function transmited(a,m:byte):string;
 const num:string[10]='0123456789';
 var s:string;
 begin
 s:='';
  repeat
   s:=num[(a mod n)+1]+s;
   a:=a div n;
  until a=0;
  transmited:=s;
 end;
begin
 clrscr;
 while n<2 do
  begin
  Autor;
   writeln('vvedite celoe 4islo ot 2 do 10');
   readln(n);
   clrscr;
   if n<2 then
    writeln('Osnovanie sistemi dolwno yavlatsa celim 4islom ot 2 do 10');
  end;
 assign(f,s);
 rewrite(f);
 for i:=1 to 9 do
  for j:=1 to 9 do
   begin
    write(f,transmited(i*j,n):10);
    if j=9 then
     writeln(f);
    end;
 close(f);
 writeln('rezultat viveden v fail: ',s);
 readln;
end.