Kód: Vybrať všetko

program balon;
uses crt,graph;
var n,j,i,k, grd,grm : integer;
x,a: array [1..100] of integer;

procedure grafika;
begin
detectgraph(grd,grm);
initgraph(grd,grm,'F:\Programy\TP\bgi');
end;

procedure balon(x,y,f:integer);
begin
setcolor(f);
circle(x,y,10);
rectangle(x+5,y+20,x-5,y+15);
line(x+5,y+15,x+10,y);
line(x-5,y+15,x-10,y);
line(x,y,x,y+15);
end;

begin
clrscr;
writeln('Kolko balonov postavime na trat?');
readln(n);
grafika;
setcolor(red);
line (getmaxx-180,0,getmaxx-180,480);
line (100,0,100,440);
for i :=1 to n do begin x[i] :=100;
                        balon(x[i],30*i,i);
                        end;
readkey;
k:=1;
repeat
 for i:=1 to n do begin
   balon(x[i],i*30,0);
   if x[i] <= getmaxx-150 then begin
     x[i]:=x[i]+random(6);
     balon(x[i],i*30,i);
     delay(10);
     if x[i] > getmaxx-150 then begin
      a[k]:=i;
      k:=k+1;
      balon(x[i],i*30,i);
      delay(5);
      end;
    end;
 end;
for i:=1 to n do balon(x[i],i*30,i);
until keypressed or (x[i]>= getmaxx-150);
readkey;
closegraph;
for i:=1 to n do write(a[i]:4);

readkey;
end.