Как сделать вот такую фигуру в Паскале с поддержкою констант

На самом деле, очень просто. Поначалу надо эту картину просто нарисовать, чтоб подсчитать пробелы. Можно прямо в среде разработки паскаля (1-ое вложение). Затем методом вставки сделать из этой рисунки набор констант (2-ое вложение).

А вот текст программки.

const 
  c1='    *       *';
  c2='  *   *   *   *';
  c3='*       *       *';
begin
  Writeln(c1);
  Writeln(c2);
  Writeln(c3)
end.