01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / FUCK

 Uses Graph,Crt;
const
  r = 20;
  pause = 50;
var
  d,m,e,xm,ym,x,y,lx,ly,rx,ry,size,dx,dy,width,height : integer;
  saucer : pointer;
label
  loop;

  Begin
  d:=Detect;
  InitGraph(d,m,'d:\tp7\bgi');
  e:=GraphResult;
  if e <> grOk then
   writeln(GraphErrorMsg(e))
        else
    begin
     setfillstyle(1,red);
     setbkcolor(blue);
     x:=r*5;
     y:=r*2;
     xm:=GetmaxX div 4;
     ym:=GetmaxY div 4;
                     setcolor(9);
     circle(x,y,r); setcolor(2);
     FloodFill(x+1,y+4,9);

     lx :=x-r;
     ly:=y-23;
     rx:=x+r+1;
     ry:=y+r;
     width:=rx-lx+1;
     Height:=ry-ly+1;
     size:=Imagesize(lx,ly,rx,ry);
     getmem(saucer,size);
     getimage(lx,ly,rx,ry,saucer^);

     putimage(lx,ly,saucer^,xorput);

     rectangle(xm,ym,3*xm,3*ym);
     floodfill(xm+3,ym+5,2);
     setviewport(xm+1,ym+1,3*xm-1,3*ym-1,clipon);
     xm:=2*xm;
     ym:=2*ym;
     x:=xm div 2;
     y:=ym div 2;
     dx:=10;
     dy:=10;
     repeat
       putimage(x,y,saucer^,xorput);
      delay(pause);
       putimage(x,y,saucer^,xorput);
  loop: x:=x+dx;
        y:=y+dy;

        if(x<0) or (x+width+1>xm) or (y<0) or (y+height+1>ym) then
          begin
           x:=x-dx;y:=y-dy;
           dx:=getmaxx div 40 - random(getmaxx div 20);
           dy:=getmaxy div 30 - random(getmaxy div 15);
           goto loop
          end
        until keypressed;
        if readkey=#0 then x:=ord(readkey);
        closegraph
       end
      End.