Программирование на Pascal / Delphi / Лабораторная работа1 / LAB_12

program lab_12;
uses crt,graph;
var
  i,y,x,mode,driver:integer;
begin
driver:=detect;
initgraph(driver,mode,'C:\tp\bgi');
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 (i<325) then
      begin
         setlinestyle(0,0,5);
         line(i,400,i-1,400);
      end;
until i>500;
readkey;
end.