Паскаль для начинающи. Нужно нарисовать рисунок ( не трудный , но

Паскаль для начинающи. Необходимо нарисовать рисунок ( не сложный , но и не простой)
Что то типо этого :
begin
writeln (' *');
writeln (' ***');
writeln (' *****');
writeln (' *******');
writeln (' *******');
writeln (' * * *');
writeln (' *******');
writeln (' *******');
writeln (' * * *');
writeln (' *******');
end.