составить программу светофор в pascalABC помогите

 

 

Программа рисует светофор и по очереди включает красный, жёлтый и зелёный сигналы.

uses GraphABC;

procedure Lamp(y: integer; c: Color);
begin
  SetBrushColor(c);
  Circle(150, y, 45);
end;

begin
  SetWindowSize(300, 450);
  SetBrushColor(clBlack);
  Rectangle(80, 20, 220, 400);

  repeat
    Lamp(100, clRed);
    Lamp(210, clSilver);
    Lamp(320, clSilver);
    Sleep(5000);

    Lamp(100, clSilver);
    Lamp(210, clYellow);
    Lamp(320, clSilver);
    Sleep(2000);

    Lamp(100, clSilver);
    Lamp(210, clSilver);
    Lamp(320, clLime);
    Sleep(5000);

    Lamp(100, clSilver);
    Lamp(210, clYellow);
    Lamp(320, clSilver);
    Sleep(2000);
  until false;
end.

0 0 Пожаловаться