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

Program имя; begin   writeln(' * * * * *'');   writeln(' *         *');     writeln(' ********'); end.

Const n=20; var x,y: array[1..n]of integer; i,j: integer;     begin       for i: =1 to n do            begin               x[i]: =random(100);               write(x[i]: 4);                 if x[i]mod 10=0 then                      begin                         j: =j+1;                         y[j]: =x[i];                     end;           end; writeln; if j< > 0 then     begin         writeln('new: ');             for i: =1 to j do               write(y[i]: 4);       end else         writeln('нет оканчивающихся на 0') end.

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

   Begin

   if (N mod 10) > A then A:= N mod 10;

   N:=N div 10;

   End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

   Begin

   if A=B then C:=true;

   if N>0 then

      Begin

      A:=N mod 10;

      N:=N div 10;

      End;

   if A=B then C:=true;

   if N>0 then

      Begin

      B:=N mod 10;

      N:=N div 10;

      End;

   End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.