Как нарисовать дом в паскаль

Begin writeln ('*':7); writeln ('*':6,'*':8); writeln ('*':5,'*':9); writeln ('*':4,'*':10); writeln ('*':3,'*':11); writeln ('*':2,'*':12); writeln ('*************'); (должно быть 13 звездочек)  writeln ('*','*':13);   writeln ('*','*':13);   writeln ('*','*':13);  writeln ('*','*':13);  writeln ('*','*':13);  writeln ('*************');  ЧТО БЫ РИСОВАТЬ ДРУГИМИ ФИГУРАМИ ПОДСТАВЬ ЭТИ ФИГУРЫ ЗА МЕСТО ЗВЕЗДОЧЕК