procedure Vrag; begin if(x1=0) then x1:=((getwidth)/3)-20; if(y1=0) then y1:=((getheight)/2)-4; n1:=1; if random(2) =0 then x1:=x1+n1; if random(2) =1 then y1:=y1+n1; drawImage(vragina,x1,y1); end;