program preteky;
uses graph,crt;
var gd,gm:smallint;
x1,y1,x2,y2,i:integer;

procedure auto(x,y,f:integer);
begin
setcolor(f);
setfillstyle(1,f);
bar(x,y,x+50,y+25);
circle(x+10,y+25,10);
circle(x+40,y+25,10);
end;


begin
randomize;

gd:=detect;
gm:=0;
initgraph(gd,gm,'');

x1:=50;
y1:=50;
x2:=50;
y2:=200;
auto(x1,y1,14);
auto(x2,y2,5);


for i:=1 to 100 do begin
    auto(x1,y1,0);
    auto(x2,y2,0);
    x1:=x1+random(15);
    x2:=x2+random(15);
    auto(x1,y1,14);
    auto(x2,y2,5);
    delay(100);
    end;
if x1>x2 then writeln('vyhral zlty')
         else if x1=x2 then writeln('remíza')
                       else writeln('vyhral fialovy');
readln;
closegraph;
end.