A continuación se muestra otro programa que dibuja una figura geométrica con asteriscos y write.
program triangulo;uses crt;begin clrscr; writeln('*':36); writeln('* *':38); writeln('* *':40); writeln('* * * *':42); readln;end.