invento.pas

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