uses graph, crt;const tee=800; foori_kaugus=300;
 var kiirus:real; v:string;
    d, m,a, valj_a, f_a, lm, ls, jm, js, jms, lms, fa, yle_maa, h:integer;
    s, s2, p, p2, h1: string;
procedure p_varv;
 begin
  setFillStyle(4,red);
  fillellipse(200,80, 20, 20);
 end;

procedure r_varv;
 begin
  setFillStyle(2,green);
  fillellipse(200,150, 20, 20);
 end;

 function null(w:Word):string;
var
  ls: String;
begin
  Str(w,ls);
  if Length(ls) = 1 then
    ls := '0' + ls;
    null:=ls;
end;

procedure liigu;
var kiirusx, kiirusy, x, y:integer;
  begin
  y:=50; x:=7;
  kiirusx:=1;
  repeat
   if x<7 then kiirusx:=abs(kiirusx);
   x:=x+kiirusx;
   setcolor(white);
   line(x, y, x, y+50);  delay(10);
   setcolor(black);
   line(x, y, x, y+50);
  until (x=150);
  end;
 procedure liigu1;
  var kiirusx, kiirusy, x, y:integer;
  begin
  y:=50; x:=151;
  kiirusy:=1; kiirusx:=1;
  repeat
   if x<151 then kiirusx:=abs(kiirusx);
   x:=x+kiirusx;
   setcolor(white);
   line(x, y, x, y+50);  delay(10);
   setcolor(black);
   line(x, y, x, y+50);
  until (x=300);
  end;

 procedure liigu2;
  var kiirusx, kiirusy, x, y:integer;
  begin
  y:=50; x:=7;
  kiirusy:=1; kiirusx:=1;
  repeat
   if x<5 then kiirusx:=abs(kiirusx);
   x:=x+kiirusx;
   setcolor(white);
   line(x, y, x, y+50);  delay(10);
   setcolor(black);
   line(x, y, x, y+50);
  until (x=400);
  end;
procedure tunnid(var h, jm:integer);
  begin
  if  jm>=60
  then begin h:=h+1; jm:=jm-60;end;str(h, h1);str(jm,p2);
end;

begin
randomize; h:=7;
valj_a:=random(180);
 if valj_a>=120 then kiirus:=6
 else kiirus:=4+random(3);
writeln('Kas fooris on punane v6i roheline v„rv?'); readln(v);
writeln('Liikumiskiirus oli ',kiirus:5:1,'km/h.'); readln;
d:=detect; initgraph(d, m,'');
a:=round(foori_kaugus/kiirus*18/5); yle_maa:=tee-foori_kaugus;begin
 if v='punane'
  then  begin fa:=1+random(30);
   a:=a+fa;
             p_varv;liigu;
             a:=a+round(yle_maa/kiirus*18/5)+valj_a;
             lm:=(valj_a div 60)+50; ls:=valj_a mod 60;
             jm:=(a div 60)+50;           js:=a mod 60;

            { str(lm, s2);} setcolor(white);
            { str(fa, p2);}
      s:='Kodust lahkumise aeg on 7:'+null(lm)+':'+null(ls);
      p:='Ja foori ees ootamise aeg oli '+null(fa)+' sekundit.' ;
      outtextxy(10,20,s);outtextxy(10,30,p);delay(500); liigu1;
      end
   else begin r_varv;
              a:=a+round(yle_maa/kiirus*18/5)+valj_a;
              lm:=(valj_a div 60)+50; ls:=valj_a mod 60;
              jm:=(a div 60)+50;      js:=a mod 60;
              setcolor(white);    { str(lm, s2);}
      s:='Kodust lahkumise aeg on 7:'+null(lm)+':'+null(ls) ;
      outtext(s);liigu2;
      end;end;tunnid(h,jm);
      {str(jm, p2);} setcolor(white);
      p:='Kooli j6udmise aeg on '+h1+':'+null(jm)+':'+null(js);
      outtextxy(10,40,p);
      readln;
      closegraph;
      textmode(lastmode);
end.