Язык паскаль вывести на экран вот это: * * * * * * * * * * * * * * * * * * * * * * * * * * * * с двумерного массива 7х головка болит уже(плак..плак и хнык..хнык)

Const n=7;
var a:array[1..n,1..n] of char;
i,j:integer;
begin
for i:=1 to n do
 for j:=1 to n do
  if j<=n-i+1 then a[i,j]:='*' else a[i,j]:=' ';
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:2);
 writeln;
 end;
end.

Результат:
 * * * * * * *
 * * * * * *  
 * * * * *    
 * * * *      
 * * *        
 * *          
 *            

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrGen(7,7,(i,j)->i<7-j?'*':' ');
  a.Println(2)
end.

Результат
 * * * * * * *
 * * * * * * 
 * * * * *   
 * * * *     
 * * *       
 * *         
 *