Разбор решений, Для тех, кто сечет в ПАСКАЛЕ Опции

[Kshishtov]

Народ, кто понимает турбопаскаль помогите пожалуйста.3 задачи дебильных задали, а я в нем ни в зуб ногой..
Есть тут такие,кто сможет решить?Отпишитесь,чтобы зря сюда не выкладывал..

[Bourn]

program NLO;
uses Crt, Graph;
const
R =20;
Pause = 50;
var
DriverVar,ModeVar,ErrCode,Xmin,Xm,Ymin,Ym,X,Y,Tx,Ty,Rx,Ry, Size,I,Dx,Dy,Width,Height : integer; Sauser : Pointer; begin
Randomize;
DriverVar:= Detect;
InitGraph(DriverVar,ModeVar,'') ;
ErrCode := GraphResult;
if ErrCode <> grOk
then Writeln(GraphErrorMsg(ErrCode)) else
begin
SetTextStyle(DefaultFont,HorizDir,2);
OutTextXY(50,10,'„Ґ¬®­бва жЁп ¤ўЁ¦Ґ­Ёп Ќ‹Ћ');
X:=R*5; Y:=R*2;
Xm:=GetMaxX - 5;
Ym:=GetMaxY - 25;
Ellipse(X,Y,0,360,R,R div 3 +2);
Ellipse(X,Y-4,190,357,R,R div 3);
Line(X+7,Y-6,X+10,Y-12);
Line(X-7,Y-6,X-10,Y-12);
Circle(X+10,Y-10,2);
Circle(X-10,Y-10,2);
FloodFill(X+1,Y+4,White);
Tx:=X-R-1 ;
Ty:=Y-14;
Rx:=X+R+1;
Ry:=Y+R div 3+3;
Width:=Rx - Tx+1;
Size:=ImageSize(Tx,Ty,Rx,Ry);
GetMem(Sauser,Size);
GetImage(Tx,Ty,Rx,Ry,Sauser^);
PutImage(Tx,Ty,Sauser^,XorPut);
Xmin:=0;
Ymin:=30;
SetFillStyle(1,Blue);
SetColor(White);
Rectangle(Xmin,Ymin,GetMaxX,GetMaxY);
SetViewPort(Xmin,Ymin,GetMaxX,GetMaxY,ClipOn);
FloodFill(Xmin+1,Ymin+1,White);
for I:=1 to 500 do PutPixel(Random(GetMaxX),Random(GetMaxY-Ymin),White);
X:= Xm div 3 - Xmin;
Y:= Ym div 3 - Ymin;
Dx:=6;
Dy:=6;
repeat
PutImage(X, Y, Sauser^, XORPut);
Delay(Pause);
PutImage(X, Y, Sauser^, XORPut);
if (X<Xmin) or (Y<Ymin) or (X+Width+1>Xm) or (Y+Height+1>Xm) then
begin
if (X-Dx < Xmin) then X := Xmin else X:=X-Dx;
if (Y-Dy < Ymin) then Y := Ymin else Y:=Y-Dy;
Dx:=GetMaxX div 10 - Random(GetMaxX div 4);
Dy:=GetMaxY div 10 - Random(GetMaxY div 4);
end else
begin
if (X+Dx < Xm) then X:=X+Dx else X:=Random(GetMaxX)-Random(GetMaxX div 4);
if (Y+Dy < Ym) then Y:=Y+Dy else Y:=Random (GetMaxX)-Random (GetMaxX div 3);
end;
until KeyPressed;
FreeMem(Sauser, size);
CloseGraph;
end;
end.