跪求利用delphi输出颠倒99乘法表代码

如题，跪求   再加一题delphi有3整数从小到大输出，

答案：
var
  x,y,n1,n2,n3,max,min,mid:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  // delphi控制台程序输出颠倒乘法口诀代码如下
   for x:= 9 downto 1 do
   begin
     for y:= 1 to x do
     begin
         write(inttostr(x)+'*'+inttostr(y)+'='+inttostr(x*y)+' ');     //输出每一行的乘法口诀
     end;
     Writeln;    //换行
   end;
   Readln;

   // 2.  从小到大输出三个整数,说明：如果对于要排序的数较多的话可以用 冒泡排序法进行排序
   Writeln('请输入第一个数:');
   Readln(n1);
   Writeln('请输入第而个数:');
   Readln(n2);
  Writeln('请输入第三个数:');
   Readln(n3);
   max := n1;   //假设最大数是n1
   min := n2;   //假设最小数是n2
   //选出最大数
   if n2>=max  then  max:=n2;
   if n3>=max then  max:=n3;
  //选出最小数
   if n1<=min then  min:=n1;
   if n3<=min then  min:=n3;
  //选出中间数
   if (min<=n1) and (n1<=max) then mid:=n1;
   if (min<=n2) and (n2<=max) then mid:=n2;
   if (min<=n3) and (n3<=max) then mid:=n3;
   //输出三个数
   Writeln('三个数大到小一次排列为'+inttostr(min)+','+inttostr(mid)+','+inttostr(max));
   Readln;
   //
end.
结果如下图：
 
 int i=9;
 for(i;i>0;i--)
 {
  for (int j=i;j>0;j--)
  {
   cout<<i<<"*"<<j<<"="<<i*j<<"\t";
  }
  cout<<endl;
  
 }

上一个：求助delphi 的function和 procedure有什么区别！
下一个：Delphi是什么程序语言？