读入N 打印N进制乘法表 pascal程序

bboo..... 那个没有考虑进制
我这个货真价实的

****************************

怎么没分呀？
加分吧，我给你一个完整的程序。
下面的程序不完整

program MULTI;

var
  N,i,j : Integer;

procedure toRadix(N,r : integer);
var q0,r0 : integer;
begin
  if N<r then
  begin
。。。。。。
  end
  else
  begin
。。。。。。
  end
end;

begin
  writeln;
  read(N);
  for i:=1 to N-1 do
  begin
    for j:=1 to i do
    begin
      Write(j,'*',i,'=');
      toRadix(i*j,N);
      if i*j<N then  Write(' '