Программирование на 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.