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

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