{* Задача 324 *}

Unit ZADACH324;
Interface
Implementation
Begin
 writeln('Изобразить движение машины, которая останавливается около светофора и затем продолжает движение.');
End.

Program zadach324;

Uses zadach324.pas; {* Эту строку можно удалить *}
Uses crt, graph; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  i      : integer;
  y      : integer;
  x      : integer;
  mode   : integer;
  driver : integer;
Begin
  driver := detect;
  initgraph(driver, mode, 'C:tpbgi');
  i := 50;
  setlinestyle(0, 0, 5);
  line(320, 400, 320, 310);
  line(315, 400, 325, 400);
  setfillstyle(1, red);
  fillellipse(320, 320, 5, 5);
  setfillstyle(1, 7);
  fillellipse(320, 332, 5, 5);
  fillellipse(320, 344, 5, 5);
  Repeat     i := i + 2;
    setfillstyle(1, 3);
  bar(i, 400, i + 70, 420);
  bar(i + 15, 390, i + 55, 400);
  delay(6000);
  If i = 240 Then
  Begin
    delay(65000);
    setfillstyle(1, 7);
    fillellipse(320, 320, 5, 5);
    delay(65000);
    setfillstyle(1, yellow);
    fillellipse(320, 332, 5, 5);
    delay(65000);
    setfillstyle(1, 7);
    fillellipse(320, 332, 5, 5);
    delay(65000);
    setfillstyle(1, green);
    fillellipse(320, 344, 5, 5);
    delay(65000);
  End;
  setfillstyle(1, 0);
  bar(i, 400, i + 70, 420);
  bar(i + 15, 390, i + 55, 400);
  If i = 306 Then
  Begin
    setlinestyle(0, 0, 5);
    line(320, 400, 320, 370);
  End;
  If (i > 315) And (i500;
    readkey; {* Нажмите любую клавишу *}
End.