numeros.pas

   1 program numeros_alreves;\r
   2 \r
   3 const\r
   4      MAX = 5;\r
   5 \r
   6 var\r
   7    i, j: integer;\r
   8 \r
   9 begin\r
  10      for i := MAX downto 1 do\r
  11        begin\r
  12             for j := 1 to i do\r
  13               write( j: 2 );\r
  14             writeln;\r
  15        end;\r
  16 end.\r