program Exam;
uses Graph, crt;

var a:string[100];
    a1:string[20];
    d,m, px, py:integer;
    i,j,e,k,l,n,r,t,s:integer;
    sa:integer;
    b,b1,b2,b3,b4,b5,b6,b7,b8,b9,bb1,bb2:string;
   f,f1,f2,f3,f4,f5,f6,f7,f8,f9,ff1,ff2:text;
begin
 textmode(1);
gotoxy (15,5);
textattr:= 12+16*0+Blink;
a:='Horoskop!';
writeln(a);
delay(1000);
readkey;
 textmode(2);
textcolor(15);
writeln('Sisesta oma snniaasta: ' );
textcolor(13);
readln(sa);
textcolor(15);
for i:=0 to 4 do
begin
     if sa=1933+12*i then   begin
     assign(f,'kukk.txt');
     reset(f);
     while not eof(f) do begin
     readln(f,b);
     writeln(b);
     readkey;
     end;
     close(f);
     end;
     if sa=1934+12*i then begin
     assign(f1,'koer.txt');
     reset(f1);
     while not eof(f1) do begin
     readln(f1,b1);
     writeln(b1);
     readkey;
     end;
     close(f1);
     end;
     if sa=1935+12*i then begin
     assign(f2,'siga.txt');
     reset(f2);
     while not eof(f2) do begin
     readln(f2,b2);
     writeln(b2);
     readkey;
     end;
     close(f2);
     end;
     if sa=1936+12*i then begin
     assign(f3,'rott.txt');
     reset(f3);
     while not eof(f3) do begin
     readln(f3,b3);
     writeln(b3);
     readkey;
     end;
     close(f3);
     end;
     if sa=1937+12*i then begin
     assign(f4,'h„rg.txt');
     reset(f4);
     while not eof(f4) do begin
     readln(f4,b4);
     writeln(b4);
     readkey;
     end;
     close(f4);
     end;
     if sa=1938+12*i then begin
     assign(f5,'tiiger.txt');
     reset(f5);
     while not eof(f5) do begin
     readln(f5,b5);
     writeln(b5);
     readkey;
     end;
     close(f5);
     end;
     if sa=1939+12*i then begin
     assign(f6,'j„nes.txt');
     reset(f6);
     while not eof(f6) do begin
     readln(f6,b6);
     writeln(b6);
     readkey;
     end;
     close(f6);
     end;
     if sa=1940+12*i then begin
     assign(f7,'draakon.txt');
     reset(f7);
     while not eof(f7) do begin
     readln(f7,b7);
     writeln(b7);
     readkey;
     end;
     close(f7);
     end;
     if sa=1941+12*i then begin
     assign(f8,'madu.txt');
     reset(f8);
     while not eof(f8) do begin
     readln(f8,b8);
     writeln(b8);
     readkey;
     end;
     close(f8);
     end;
     if sa=1942+12*i then begin
     assign(f9,'hobune.txt');
     reset(f9);
     while not eof(f9) do begin
     readln(f9,b9);
     writeln(b9);
     readkey;
     end;
     close(f9);
     end;
     if sa=1943+12*i then begin
     assign(ff1,'kits.txt');
     reset(ff1);
     while not eof(ff1) do begin
     readln(ff1,bb1);
     writeln(bb1);
     readkey;
     end;
     close(ff1);
     end;
     if sa=1944+12*i then begin
     assign(ff2,'ahv.txt');
     reset(ff2);
     while not eof(ff2) do begin
     readln(ff2,bb2);
     writeln(bb2);
     readkey;
     end;
     close(ff2);
     end;
end;
delay (1000);
textmode(1);
     gotoxy(10,12);
     textattr:=14+16*0;
     writeln('Kellega sa sobid?');
     readln;
textmode(2);
clrscr;
begin
d:=detect;
initgraph(d,m,'');
setbkcolor(0);
   outtextxy(130,70,'R  H   T   J   D   M  Ho  K   A  Ku  Ko  S');
   outtextxy(100,90,'R');
   outtextxy(100,120,'H');
   outtextxy(100,150,'T');
   outtextxy(100,180,'J');
   outtextxy(100,210,'D');
   outtextxy(100,240,'M');
   outtextxy(100,270,'Ho');
   outtextxy(100,300,'K');
   outtextxy(100,330,'A');
   outtextxy(100,360,'Ku');
   outtextxy(100,390,'Ko');
   outtextxy(100,420,'S');

setColor(8);
For pX:=1 to 12 do
For pY:=1 to 12 do
begin
circle(pX*30+100,pY*30+60,7);
end;
setfillstyle(1,12);
for j:=0 to 1 do begin
floodfill(130+j*210,90,8);
floodfill(370+j*90,90,8);
floodfill(340+j*30,120,8);
floodfill(160,300+j*30,8);
floodfill(190+j*120,150,8);
floodfill(250+j*60,210,8);
floodfill(190+j*60,270,8);
floodfill(280+j*60,270,8);
floodfill(400+j*60,270,8);
floodfill(310,240+j*30,8);
floodfill(310,300+j*60,8);
floodfill(130,300+j*30,8);
floodfill(130+j*150,420,8);
end;
floodfill(370,330,8);
floodfill(460,240,8);
floodfill(400,360,8);
floodfill(310,420,8);
  setfillstyle(1,1);
  for k:=0 to 1 do begin
  floodfill(130+k*30,120,8);
  floodfill(160+k*60,90,8);
  floodfill(130+k*30,180,8);
  floodfill(220+k*60,180,8);
  floodfill(220+k*210,240,8);
  floodfill(460,330+k*30,8);
  floodfill(220+k*60,390,8);
  floodfill(370+k*30,420,8);
  floodfill(430,180+k*210,8);
  end;
  floodfill(220,120,8);
    setfillstyle(1,10);
    for l:=0 to 1 do begin
    floodfill(190+l*90,90,8);
    floodfill(190+l*60,300,8);
    floodfill(280+l*90,300,8);
    floodfill(430,90+l*30,8);
    floodfill(130+l*90,150,8);
    floodfill(280+l*60,150,8);
    floodfill(460,120+l*30,8);
    floodfill(190+l*60,180,8);
    floodfill(370+l*90,180,8);
    floodfill(220+l*120,210,8);
    floodfill(460,180+l*30,8);
    floodfill(130+l*150,240,8);
    floodfill(340+l*30,240,8);
    floodfill(190+l*60,270,8);
    floodfill(280+l*90,270,8);
    floodfill(430+l*30,300,8);
    floodfill(220+l*60,330,8);
    floodfill(340+l*60,330,8);
    floodfill(130+l*30,390,8);
    floodfill(340+l*120,390,8);
    floodfill(160+l*30,420,8);
    floodfill(220+l*30,420,8);
    floodfill(340+l*120,420,8);
    floodfill(430,330+l*90,8);
    floodfill(370,360+l*30,8);
    end;
      setfillstyle(1,14);
      for n:=0 to 1 do begin
      floodfill(280+n*120,120,8);
      floodfill(250+n*180,150,8);
      floodfill(130+n*60,210,8);
      floodfill(280+n*90,210,8);
      floodfill(160+n*30,240,8);
      floodfill(250+n*150,240,8);
      floodfill(220+n*120,300,8);
      floodfill(250,90+n*240,8);
      floodfill(160+n*90,360,8);
      floodfill(190+n*120,390,8);
      end;
      floodfill(340,180,8);
      floodfill(400,210,8);
      floodfill(430,270,8);
      floodfill(280,360,8);
         setfillstyle(1,5);
         for r:=0 to 2 do begin
         floodfill(190+r*60,120,8);
         floodfill(160,150+r*60,8);
         end;
         for t:=0 to 1 do begin
         floodfill(310+t*90,90,8);
         floodfill(130,270+t*90,8);
         floodfill(370+t*30,150,8);
         floodfill(190,330+t*30,8);
         floodfill(220+t*150,270,8);
         floodfill(310,180+t*150,8);
         floodfill(220+t*120,360,8);
         floodfill(400,180+t*120,8);
         floodfill(250+t*150,390,8);
         floodfill(430,210+t*150,8);
         end;
  for s:=0 to 4 do begin
  circle (490,50+s*90,8);
  end;
     setfillstyle(1,12);
     floodfill(490,50,8);
      setfillstyle(1,1);
      floodfill(490,140,8);
       setfillstyle(1,10);
       floodfill(490,230,8);
        setfillstyle(1,14);
        floodfill(490,320,8);
         setfillstyle(1,5);
         floodfill(490,410,8);

setcolor(15);
outtextxy(500,50,'Iha esimesest  ');
outtextxy(490,65,'silmapilgust!');
outtextxy(490,80,'Ideaalne,kui ootad');
outtextxy(490,95,'läämavad armusuhet.');
 outtextxy(500,140,'ånnelik suhe!');
 outtextxy(490,155,'Leiad end ');
 outtextxy(490,170,'tuulevaikses,');
 outtextxy(490,185,'ent ebaerutavas');
 outtextxy(490,200,'armuloos.');
  outtextxy(500,230,'Romantikavaba ');
  outtextxy(490,245,'tsoon. J„„ge ');
  outtextxy(490,260,'headeks säpradeks.');
   outtextxy(500,320,'Otse kmnesse!');
   outtextxy(490,335,'T„iuslik paar');
   outtextxy(490,350,'- olete teineteise');
   outtextxy(490,365,'jaoks kui loodud!');
    outtextxy(500,410,'Kurss kaugelt ');
    outtextxy(490,425,'määda! Žrge ldse ');
    outtextxy(490,440,'lootkegi kokku ');
    outtextxy(490,455,'j„„da.');
 setcolor(8);
 arc(20,20,260,10,40);
 arc(5,5,280,350,55);
 setfillstyle(1,12);
 floodfill(47,49,8);
 circle(15,30,5);
 circle(30,15,5);
 setfillstyle(1,1);
 floodfill(15,30,8);
 floodfill(30,15,8);
 putpixel(35,40,15);
 putpixel(40,35,15);
 circle(15,30,2);
 circle(30,15,2);
 setfillstyle(1,0);
 floodfill(30,15,8);
 floodfill(15,30,8);
 setcolor(15);
 arc(40,40,80,190,8);
readln;
delay(1000);
closegraph;
end;
textcolor(15);
gotoxy(10,5);
writeln('Tallinna Pedagoogika šlikool');
gotoxy(30,15);
writeln('M - 22');
gotoxy(10,25);
writeln('21.01.1999.a.');
gotoxy(40,25);
writeln('Jekaterina Borzenkova');
readln;
delay(1000);
end.