Помогите с программированием на Pascal!!!

Помогите с программированием на Pascal!!!
Нужно с помощю цикла символом вывести на екран как бы рисунок снежинки с помощю символа " * ". Ну как бы программа сама должна думать ставить ли на том месте символ или нет!!!!
Например просто пустое место:
_ _ _ _ _ _ _ _ _
_ _ _ _ _ _ _ _ _
_ _ _ _ _ _ _ _ _
_ _ _ _ _ _ _ _ _
_ _ _ _ _ _ _ _ _
_ _ _ _ _ _ _ _ _
_ _ _ _ _ _ _ _ _

А нужно чтобы оно само думало надо ли в том или ином месте выводить " * "

И чтобы потом выйшло что-то такое:
_ * _ _ * _ _ * _
_ _ * _ * _ * _ _
_ _ _ * * * _ _ _
* * * * * * * * *
_ _ _ * * * _ _ _
_ _ * _ * _ * _ _
_ * _ _ * _ _ * _

  • procedure dr( x,y,dx,dy,c: integer ); var i: integer;
    begin for i := 1 to c do begin gotoxy(x,y); write( '*' ); inc(x,dx), inc(y,dy); end; end;
    ...
    dr( 1,1,1,1, l );
    dr( 1,l,1,-1,l );
    dr( 1,l div 2,1,0,l );
    dr( l div 2,1,0,1,l );
    Как-то так.
  • заносишь в массив строки "картинок" - '_ * _ _ * _ _ * _', '_ _ * _ * _ * _ _ ' и т. д. а потом Writeln выводишь их на экран.