Псевдографика в Паскале Опции

[Расим]

Доброе время суток.
Люди помогите в понедельник сессия а задачу сделать не могу
С помощью знаков «*» нарисовать 2 фигуры близнецов в соответствии . Необходимо написать собственные процедуры, функции для задания примитивов.
Подскажите хотя бы как создать эти процедуры???
Зарание Спасибо

[Lapp]

Подскажите хотя бы как создать эти процедуры

Если я правильно тебя понял, тебе нужно что-то наподобие вот этого:

uses
  CRT;

procedure DrawMan(x,y: integer);
const
  m=16;
  Man: array[1..m]of string=(
    '     *****     ',
    '**  *     *    ',
    ' *  *     *    ',
    ' *   *****     ',
    ' *     *       ',
    ' ************* ',
    '      * *    * ',
    '      * *    * ',
    '      * *    **',
    '      * *      ',
    '      ***      ',
    '     *   *     ',
    '    *     *    ',
    '   *       *   ',
    '  *         *  ',
    '**           **'
  );
var
  i: integer;
begin
  for i:=1 to m do begin
    GoToXY(x,y+i-1);
    Write(Man[i])
  end
end;

begin
  ClrScr;
  DrawMan(20,2);
  TextColor(LightGreen);
  DrawMan(60,6);
  TextColor(LightRed);
  DrawMan(40,8);
  GotoXY(1,Hi(WindMax));
  ReadLn
end.

Это простейшее, что можно придумать. Если же нужно, например, накладывать изображения друг на друга, то можно сделать так (я еще добавил некий фон, чтоб было понятно, о чем речь):

uses
  CRT;

procedure DrawMan(x,y: integer);
const
  m=16;
  n=15;
  Man: array[1..m]of string=(
    '     *****     ',
    '**  *     *    ',
    ' *  *     *    ',
    ' *   *****     ',
    ' *     *       ',
    ' ************* ',
    '      * *    * ',
    '      * *    * ',
    '      * *    **',
    '      * *      ',
    '      ***      ',
    '     *   *     ',
    '    *     *    ',
    '   *       *   ',
    '  *         *  ',
    '**           **'
  );
var
  i,j: integer;
begin
  for i:=1 to m do for j:=1 to n do if Man[i][j]<>' ' then begin
    GoToXY(x+j-1,y+i-1);
    Write(Man[i][j])
  end
end;

var
  i,MaxX,MaxY: integer;

begin
  ClrScr;
  MaxX:=Lo(WindMax);
  MaxY:=Hi(WindMax);
  {заполняем фон}
  TextColor(Blue);
  TextBackGround(Green);
  for i:=1 to 2000 do begin
    GoToXY(Random(MaxX)+1,MaxY-Random(Random(Random(MaxY))));
    Write('+')
  end;
  TextBackGround(Black);
  TextColor(Yellow);
  DrawMan(20,2);
  TextColor(LightBlue);
  DrawMan(60,6);
  TextColor(LightRed);
  DrawMan(40,8);
  GotoXY(1,Hi(WindMax));
  ReadLn
end.

Выглядит это пещерно-наскальное творчество примерно так:

Про псевдографику на Форуме совсем мало. Вот одна тема, в которой она фигурирует, глянь:
Расчет биоритмов