Помогите построить задачу Турбо паскаль "Построение домика" плиз

Program BiFi; var i;integer; Begin writeln('       *       '); writeln('      * *      '); writeln('     *   *     '); writeln('    *     *    '); writeln('   *       *   '); writeln('  *********  '); for i:=1 to 5 do writeln('  *       *  '); writeln('  *********  '); readln;  end.