O y X gigantes en Pascal

            gotoxy(x,y);writeln('**    **');y:=y+1;
            gotoxy(x,y);writeln(' **  ** ');y:=y+1;
            gotoxy(x,y);writeln('  ****  ');y:=y+1;
            gotoxy(x,y);writeln('   **   ');y:=y+1;
            gotoxy(x,y);writeln('  ****  ');y:=y+1;
            gotoxy(x,y);writeln(' **  ** ');y:=y+1;
            gotoxy(x,y);writeln('**    **');


            gotoxy(x,y); writeln('   ***   '); y:=y+1;
            gotoxy(x,y); writeln(' **   ** '); y:=y+1;
            gotoxy(x,y); writeln('**     **'); y:=y+1;
            gotoxy(x,y); writeln('**     **'); y:=y+1;
            gotoxy(x,y); writeln(' **   ** '); y:=y+1;
            gotoxy(x,y); writeln('   ***  ');