{* Задача 342 *}

Unit ZADACH342;
Interface
Implementation
Begin
 writeln('Написать программу, которая выводит на экран изображение лица человека телесного цвета и с голубыми глазами. ');
End.

Program zadach342;

Uses zadach342.pas; {* Эту строку можно удалить *}
Uses crt, graph; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  gd : integer;
  gm : integer;
  x  : integer;
  y  : integer;
  r  : integer;
Begin
  gd := detect;
  initgraph (gd, gm, 'c:tp7BIN');
  If graphresult  0 Then
  Begin
    write ('Oshibka grafiki:', grapherrormsg (graphresult));
    halt;
  End;
  clrscr; {* Очищаем экран *}
  SetColor (black);
  x := 320;
  y := 240;
  r := 50;
  circle (x, y, r);
  floodfill (x, y, yellow);
  circle (x - (r Div 2), y - (r Div 3), r Div 6);
  floodfill (x - (r Div 2), y - (r Div 3), cyan);
  circle (x + (r Div 2), y - (r Div 3), r Div 6);
  floodfill (x + (r Div 2), y - (r Div 3), cyan);
  circle (x + (r + (r Div 7)), y - (r Div 3), r Div 6);
  circle (x - (r + (r Div 7)), y - (r Div 3), r Div 6);
  line (x, y + (r Div 4), x, y - (r Div 4));
  arc (x, y + (r Div 3), 180, 360, r Div 3);
  readln; {* Ждем подтверждения пользователя *}
  closegraph;
End.