otkr.PAS

{* Открытка *}

Unit OTKR;
Interface
Implementation
Begin
 writeln('Открытка - поздравление с днем рождения');
End.

Program otkr;

Uses otkr.pas; {* Эту строку можно удалить *}
Uses Graph, crt; {* Подключение модулей *}
Const {образец заполнения}
  patt1 : FillPatternType = ($00, $18, $24, $42, $42, $24, $18, $00);
  patt2 : FillPatternType = ($00, $00, $00, $00, $00, $00, $00, $00);
Var {* Необходимые переменные *}
  D : integer;
  r : integer;
  e : integer;
Begin
  InitGraph(d, r, 'h:bpbgi');
  e := GraphResult;
  If e  grOk Then
  Begin
    Writeln('Ошибка перехода в графический режим');
    Exit;
  End;
  SetFillStyle(UserFill, White);
  SetFillPattern(Patt1, 1);
  Bar(50, 50, GetMaxX - 50, GetMaxY - 50);
  SetColor(3);
  Rectangle(50, 50, GetMaxX - 50, GetMaxY - 50);
  SetColor(5);
  SetFillStyle(1, 5);
  FillEllipse(GetMaxX - 50 - 80, 100, 50, 10);
  FillEllipse(GetMaxX - 50 - 80, 100, 10, 45);
  SetColor(7);
  Circle(GetMaxX - 50 - 80, 100, 10);
  SetTextStyle(7, 0, 4); {или SetTextStyle(3, 0, 4);
  зависит от версии TP}

  SetColor(3);
  OutTextXY(150, 90, 'Happy birthday');
  SetTextStyle(0, 0, 1);
  OutTextXY(70, 200, 'текст поздравления');
  If ReadKey = #0 Then
    d := ord(ReadKey); {ждем нажатия клавиши}
  CloseGraph; {закрываем графику}
End.