Как вывести на экран рисунок(квадрат) из любых символов,из трех любых чисел в geany,в паскале?

Program имя;
Begin
  Writeln(' * * * * *'');
  Writeln(' *        *'); 
  Writeln(' ');
end.