program Akirjutamine;
uses crt;
var
 x, y: integer;
begin
 clrscr;
 x:=10;
 y:=12;
 gotoxy(x, y);   writeln('    *    ');
 gotoxy(x, y+1); writeln('   * *   ');
 gotoxy(x, y+2); writeln('  *   *  ');
 gotoxy(x, y+3); writeln(' ******* ');
 gotoxy(x, y+4); writeln('*       *');
 readln;
end.