язык Паскаль вывести на экран вот это:* * * * * * ** * * * * * * * * * ** * * ** * ** **с помощью двумерного массива 7х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.

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