Var gd,gm,I,j:integer;
begin
Gd := detect ;
InitGraph(gd, Gm, 'c:\tp70\bgi');
outtextxy(100,50,' State Academy of Oil and Gas');
outtextxy(100,70,' Group XH-94-1');
{ наклонная плоскость }
line(100,100,300,300);
line(300,300,100,300);
line(100,100,100,300);
setcolor(12);
{ блок }
circle(100,100,15);
line(85,100,85,220);
line(113,92 ,175+i,145+i);
bar(95,220,75,250);
setcolor(13);
line(161, 160, 201, 200);
line(196, 125, 236, 165);
line(161, 160, 196, 125);
line(201, 200, 236, 165);
{ движение маленького груза }
for j:=0 to 20 do
begin
setcolor(10);
line(121+j, 120+j, 141+j, 140+j);
line(126+j, 115+j, 146+j, 135+j);
line(121+j, 120+j, 126+j, 115+j);
line(141+j, 140+j, 146+j, 135+j);
delay(30000);
setcolor(0);
line(121+j, 120+j, 141+j, 140+j);
line(126+j, 115+j, 146+j, 135+j);
line(121+j, 120+j, 126+j, 115+j);
line(141+j, 140+j, 146+j, 135+j);
end;
{ движение системы }
for i:=0 to 99 do
begin
setcolor(i);
outtextxy(100,50,' State Academy of Oil and Gas');
outtextxy(100,70,' Group XH-94-1');
setcolor(13);
line(161+i, 160+i, 201+i, 200+i);
line(196+i, 125+i, 236+i, 165+i);
line(161+i, 160+i, 196+i, 125+i);
line(201+i, 200+I, 236+i, 165+i);
setcolor(10);
line(121+i+20, 120+i+20, 141+i+20, 140+i+20);
line(126+i+20, 115+i+20, 146+i+20, 135+i+20);
line(121+i+20, 120+i+20, 126+i+20, 115+i+20);
line(141+i+20, 140+i+20, 146+i+20, 135+i+20);
{ движение вертикальное }
setcolor(12);
setfillstyle(1,15);
bar(95,220-i,75,250-i);
line(85,100,85,220-i);
line(113,92 ,175+i,145+i);
delay(30000);
if i<99 then begin
setcolor(0 );
setfillstyle(1,0);
bar(95,220-i,75,250-i);
line(121+i+20, 120+i+20, 141+i+20, 140+i+20);
line(126+i+20, 115+i+20, 146+i+20, 135+i+20);
line(121+i+20, 120+i+20, 126+i+20, 115+i+20);
line(141+i+20, 140+i+20, 146+i+20, 135+i+20);
line(161+i, 160+i, 201+i, 200+i);
line(196+i, 125+i, 236+i, 165+i);
line(161+i, 160+i, 196+i, 125+i);
line(201+i, 200+I, 236+i, 165+i);
line(85,100,85,220-i);
line(113,92 ,175+i,145+i);
end
else
end;
repeat until keypressed;
readln;
closegraph;
end.