Viết chương trình Pascal vẽ 1 tam giác cân bằng dấu. In ra màn hình tam giác đó

program phuongt;
uses crt;
begin
          clrscr;
          writeln('Tam giac can: ');
          writeln('        .        ');
          writeln('      .   .      ');
          writeln('     .     .     ');
          writeln('    .       .    ');
          writeln('   .         .   ');
          writeln('  .           .  ');
          writeln(' .             . ');
          writeln('.................');
          readln
end.