uses crt;
 var date, arv: string;
    d1, d2, m1, m2, y1, y2, y3, y4, pp1, pp2,pp3, pp4, r1, r2, r3, r4: string;
    c1, c2, p1, p2, p3, p4: integer;
    dd1, dd2, mm1, mm2, yy1, yy2, yy3, yy4 : integer;
    rr1, rr2, rr3, rr4, viga, f: integer;
    yks, kaks, kolm, neli, viis, kuus, seitse, kaheksa, yheksa, elu: integer;
    sissejuh, kaks0, viis0, kuus4, seitse0, seitse2: text;
    sis, bio, int, maa4, and0, and2: string;

 begin
    clrscr;
    textcolor(4+blink);
    gotoxy(27,6);
    writeln('Pythagorase maagiline tabel');
    gotoxy(15,14);
    textcolor(12);
    writeln(' aitab Teil desifreerida Teie su"nniaega kantud koodi');
    gotoxy(15,19);
    writeln('ning selle abil saada teada oma ja la"hedaste saatust');
    readln;

    clrscr;
    textcolor(2+blink);
    gotoxy(27,4);
    writeln('Saatus Pythagorase ja"rgi');
    textcolor(10);
    assign(sissejuh,'sissejuh.txt');
           reset(sissejuh);
           while not eof(sissejuh) do
               begin
                  readln(sissejuh, sis);
                  writeln(sis);
               end;
           close(sissejuh);
    readln;

    clrscr;
    textcolor(4);
    writeln;
    writeln('    Teie su"nniaeg (dd.mm.yyyy):');
    readln(date);
    d1:=copy(date,1,1);
    d2:=copy(date,2,1);
    m1:=copy(date,4,1);
    m2:=copy(date,5,1);
    y1:=copy(date,7,1);
    y2:=copy(date,8,1);
    y3:=copy(date,9,1);
    y4:=copy(date,10,1);

    val(d1,dd1,viga);
    val(d2,dd2,viga);
    val(m1,mm1,viga);
    val(m2,mm2,viga);
    val(y1,yy1,viga);
    val(y2,yy2,viga);
    val(y3,yy3,viga);
    val(y4,yy4,viga);
    writeln;

    textcolor(15);
    writeln('    Liidame su"nnipa"eva ja kuu numbrid: ');
    c1:=dd1+dd2+mm1+mm2;
    writeln(' ',dd1,'+',dd2,'+',mm1,'+',mm2,'=',c1);
    writeln;
    readln;

    writeln('    Liidame su"nniaasta numbrid: ');
    c2:=yy1+yy2+yy3+yy4;
    writeln(' ',yy1,'+',yy2,'+',yy3,'+',yy4,'=',c2);
    writeln;
    readln;

    writeln('    Liidame saadud arvude summa: ');
    p1:=c1+c2;
    writeln(' ',c1,'+',c2,'=',p1);
    writeln;
    readln;

    textcolor(5);
    writeln('    ',p1,' on esimene to"o"arv.');
    writeln;
    readln;

    str(p1,pp1);
    r1:=copy(pp1,1,1);
    r2:=copy(pp1,2,1);
    val(r1,rr1,viga);
    val(r2,rr2,viga);
    textcolor(15);
    writeln('    Liidame esimese to"o"arvu numbrid: ');
    p2:=rr1+rr2;
    writeln(' ',rr1,'+',rr2,'=',p2);
    writeln;
    readln;
    textcolor(5);
    writeln('    ',p2,' on teine to"o"arv.');
    readln;

    clrscr;
    writeln;
    textcolor(15);
    writeln('    Esimesest to"o"arvust on vaja lahutada 2-ga korrutatud su"nnipa"eva  ');
    writeln(' esimene number:');
    p3:=p1-dd1*2;
    writeln(' ',p1,'-',dd1*2,'=',p3);
    writeln;
    readln;
    textcolor(5);
    writeln('    ',p3,' on kolmas to"o"arv.');
    writeln;
    readln;

    str(p3,pp3);
    r3:=copy(pp3,1,1);
    r4:=copy(pp3,2,1);
    val(r3,rr3,viga);
    val(r4,rr4,viga);
    textcolor(15);
    writeln('    Liidame kolmanda to"o"arvu numbrid: ');
    p4:=rr3+rr4;
    writeln(' ',rr3,'+',rr4,'=',p4);
    writeln;
    readln;
    textcolor(5);
    writeln('    ',p4,' on neljas to"o"arv.');
    readln;

    clrscr;
    writeln;
    writeln(' ',date);
    writeln(' ',p1, p2, p3, p4);
    writeln;
    textAttr:=2;
    str(p2,pp2);
    str(p4,pp4);
    writeln('    Teie arvurida on: ',d1,d2,m1,m2,y1,y2,y3,y4,pp1,pp2,pp3,pp4);
    writeln;
    readln;

    arv:=d1+d2+m1+m2+y1+y2+y3+y4+pp1+pp2+pp3+pp4;
    for f:=1 to length(arv) do
       begin
          if copy(arv, f, 1)='1' then yks:=yks+1;
          if copy(arv, f, 1)='2' then kaks:=kaks+1;
          if copy(arv, f, 1)='3' then kolm:=kolm+1;
          if copy(arv, f, 1)='4' then neli:=neli+1;
          if copy(arv, f, 1)='5' then viis:=viis+1;
          if copy(arv, f, 1)='6' then kuus:=kuus+1;
          if copy(arv, f, 1)='7' then seitse:=seitse+1;
          if copy(arv, f, 1)='8' then kaheksa:=kaheksa+1;
          if copy(arv, f, 1)='9' then yheksa:=yheksa+1;
       end;

    elu:=yks+kaks+kolm+neli+viis+kuus+seitse+kaheksa+yheksa;
    textcolor(15);
    writeln('    Arvude kogus-',elu);
    writeln;
    writeln('    See ta"hendab, et Te tulite maa peale ',elu,' kord. Aga u"ldse tuleb ');
    writeln(' inimene maa peale Pythagorase ja"rgi 15 korda. Peale seda ta la"heb elama');
    writeln(' teise palju kyrgemasse myytmesse.');
    writeln;
    readln;
    textcolor(15);
    writeln('    Pythagorase tabelisse kirjutame u"hesugused arvud Teie arvureast...');
    readln;

    clrscr;
    writeln;
    writeln('    Teil peab tulema nii:');
    writeln;
    textcolor(14);
    writeln(' "1" - ',yks,'   "4" - ',neli,'   "7" - ',seitse);
    writeln(' "2" - ',kaks,'   "5" - ',viis,'   "8" - ',kaheksa);
    writeln(' "3" - ',kolm,'   "6" - ',kuus,'   "9" - ',yheksa);
    readln;

    textcolor(13);
    writeln('    1');
    textcolor(5);
    if yks=0 then writeln('    U"hed puuduvad');
    if yks=1 then writeln('    1- peene egoist');
    if yks=2 then writeln('    11- la"hedane egoismile');
    if yks=3 then writeln('    111- hea iseloom, ja"releteadlik');
    if yks=4 then writeln('    1111- diktaator');
    if yks=5 then
      begin
         writeln('    11111- (kohtub vaga harva) see on julm inimene, aga samas lahedase jaoks.');
         writeln(' vyib teha midagi vyimatut. Sellise inimesega on va"ga raske.');
      end;
    writeln;
    readln;

    textcolor(13);
    writeln('    2 (bioenergia)');
    textcolor(5);
    if kaks=0 then
        begin
           assign(kaks0,'kaks0.txt');
           reset(kaks0);
           while not eof(kaks0) do
               begin
                  readln(kaks0, bio);
                  writeln(bio);
               end;
           close(kaks0);
        end;

    if kaks=1 then
        begin
           writeln('    2- eluks vajaliku energiat ja"tkub aga praegusel etapil va"hevyitu, ');
           writeln(' sellepa"rast on vajalik sport. Va"ga tundlik atmosfa"a"ri ryhu kyikumistel.');
        end;

    if kaks=2 then
      writeln('    22- bioenergiat on piisavalt. Te vyite ravida teisi.');

    if kaks=3 then
      writeln('    222- te olete hea ekstrasenss');

    if kaks=4 then
      begin
         writeln('    2222- neid inimesi va"ga armastab vastas sugupool. Kui sellele lisandub');
         writeln(' veel kolm kuute (666)-hoiduge ahvatlustest!');
      end;
    writeln;
    readln;

    textcolor(13);
    writeln('    3 (korralikus)');
    textcolor(5);
    if kolm=0 then
        begin
            writeln('    Kui kolmed puuduvad , see ta"hendab et inimene on va"ga korralik ja ');
            writeln(' ta"pne. Paistab silma teiste seas oma jutuga.');
        end;

    if kolm=1 then
        begin
           writeln('    3- neid inimesi ha"irib, tu"litab korralagedus, aga suhteliselt');
           writeln(' (tahan- teen, tahan- ei tee), kyik oleneb tujust.');
        end;

    if kolm=2 then
      writeln('    33- vyimekas teaduses (suurepa"rane matemaatik, fuusik, keemik).');

    if kolm=3 then
        begin
          writeln('    333- vyimekas teaduses (kahekordse jyuga). Pedantsus, korralikus');
          writeln(' kui ei ole end realiseerinud teaduses.');
        end;
    writeln;
    readln;

    textcolor(13);
    writeln('    4 (tervis)');
    textcolor(5);
    if neli=0 then
      writeln('    Kui neljad puuduvad st. et inimene on tihti haige.');

    if neli=1 then
      writeln('    4- ei ole eriti haige, haigused tulevad vanaduses.');

    if neli=2 then
      writeln('    44- va"ga terve inimene vyi omab kyrget temperamenti.');

    if neli=3 then
      writeln('    444- va"ga terve inim. ja omab kyrget temperamenti kahekordse energiaga');
    writeln;
    readln;

    textcolor(13);
    writeln('    5 (intuitsioon)');
    textcolor(5);
    if viis=0 then
        begin
           assign(viis0,'viis0.txt');
           reset(viis0);
           while not eof(viis0) do
               begin
                  readln(viis0, int);
                  writeln(int);
               end;
           close(viis0);
        end;

    if viis=1 then
        writeln('    5- kanal on avatud, need inimesed teevad va"hem vigu.');

    if viis=2 then
        writeln('    55- intuitsioon tugevalt arenenud (uurijad, juristid)');

    if viis=3 then
        begin
           writeln('    555- selgeltna"gijad, kyik mis u"mberringi toimub on neile selge.');
           writeln(' Teavad mida teevad.')
        end;

    if viis=4 then
        begin
           writeln('    5555- selgeltna"gijad, kyik mis u"mberringi toimub on neile selge.');
           writeln(' On momendid kui nad on teiselpool aega ja myytu.');
        end;
    readln;

    clrscr;
    writeln;
    textcolor(13);
    writeln('    6 (maandatavus)');
    textcolor(5);
    if kuus=0 then
        begin
           writeln('     Ei ole kuute. Inimene tuli siia maailma, et saada elukutse, ');
           writeln('  fu"u"siline to"o" on vajalik, kuid ta ei armasta seda.');
        end;

    if kuus=1 then
        begin
           writeln('    6- maandatud inimene. Fu"u"siline to"o" on vajalik, vyib myelda ka ');
           writeln(' yppimisest.');
        end;

    if kuus=2 then
        begin
           writeln('    66- va"ga maandatud inimene, aga fu"u"siline to"o" ei ole vajalik, ');
           writeln(' kuigi ta seda armastab.');
        end;

    if kuus=3 then
        begin
           writeln('    666- a"rev ma"rk. Inimene on va"ga ku"tkestav ja temperamentne. ');
           writeln(' Tema partner peab olema suure kahtede kogusega.');
        end;

    if kuus=4 then
        begin
           assign(kuus4,'kuus4.txt');
           reset(kuus4);
           while not eof(kuus4) do
               begin
                  readln(kuus4, maa4);
                  writeln(maa4);
               end;
           close(seitse0);
        end;
    writeln;
    readln;

    textcolor(13);
    writeln('    7 (andekus)');
    textcolor(5);
    if seitse=0 then
        begin
           assign(seitse0,'seitse0.txt');
           reset(seitse0);
           while not eof(seitse0) do
               begin
                  readln(seitse0, and0);
                  writeln(and0);
               end;
           close(seitse0);
        end;

    if seitse=1 then
        begin
           writeln('    7- inimene elab natuke kergemini. On andekus, kuid see ei ole eredalt');
           writeln(' va"ljendatud.');
        end;

    if seitse=2 then
        begin
           assign(seitse2,'seitse2.txt');
           reset(seitse2);
           while not eof(seitse2) do
               begin
                  readln(seitse2, and2);
                  writeln(and2);
               end;
           close(seitse2);
        end;

    if seitse=3 then
        writeln('    777- eriline ma"rk. Need inimesed pyrkavad kokku tysiste raskusrega.');

    if seitse=4 then
        begin
           writeln('    7777- see on a"rev ma"rk. Inimesed sellise ma"rgiga peavad olema va"ga');
           writeln(' ettevaatlikud.');
        end;
    writeln;
    readln;

    textcolor(13);
    writeln('    8 (kohusetundlikkus)');
    textcolor(5);
    if kaheksa=0 then
        writeln('    Puudub kaheksa. Inimene vytab midagi ja ei kiirusta seda tagastama.');
    if kaheksa=1 then
        writeln('    8- inimesel on arenenud vastutustunne.');
    if kaheksa=2 then
        writeln('    88- inimesel on va"ga arenenud vastutustunne ja on alati tahe aidata teisi.');
    if kaheksa=3 then
        writeln('    888- rahva teenindamise su"mbol. Suur vastutustunne. See on I.Gandi ma"rk.');
    if kaheksa=4 then
        begin
           writeln('    8888- see ma"rk oli ainult 1988. aastal. Lapsed su"ndisid arenenud oskustega,');
           writeln(' kalduvusega yppida ta"pisteadusi.');
        end;
    writeln;
    readln;

    textcolor(13);
    writeln('    9 (myistus)');
    textcolor(5);
    if yheksa=0 then writeln('    U"heksad puuduvad');
    if yheksa=1 then writeln('    9- inimene peab arendama ka teist u"heksat.');
    if yheksa=2 then writeln('    99- sndimisest on antud tark pea aga ei ole tahet yppida.');
    if yheksa=3 then writeln('    999- inimene on tark looduse poolt, kyik on tema vyimsuses, tal ynnestub kyik.');
    if yheksa=4 then
        begin
           writeln('    9999- inimeses on avatud tyde, mis on seotud haruldase myistusega,');
           writeln(' aga teisest erineb sellega, et on jyhker, su"dametu.');
        end;
    writeln;
    readln;

    textAttr:=3;
    writeln('    Nu"u"d te saite teada kuidas Pythagoras na"gi inimeste saatusi.');
    readln;
    textmode(lastmode);
 end.