uses Crt,Graph; var i,x,a,b,c,s:integer; y,o:string; r,k,d:string; f,f1,f2:text; e,z:string[40]; driver,mode:integer; begin textmode(1); textattr:=4+16*1+Blink; clrscr; gotoxy(15,5); writeln('Test naistele! '); gotoxy(1,15); textattr:=14+16*1; e:='Milline on minu moju meestele? '; gotoxy(25,25); textAttr:=3+16*1; writeln('Marina Jegorova'); textAttr:=14+16*1; i:=40; gotoxy(1,10); clreol; repeat if i>0 then begin gotoxy(i,10); write(copy(e,1,40-i)); end else begin gotoxy(1,10); z:=copy(e,-i+2,40+i) ; write(copy(e,-i+2,40+i)); end; i:=i-1; if i=-30 then i:=40; delay(1000); until keypressed; readkey; textmode(2); textAttr:=2; writeln(' 1)Kas teevad vahel komplemente ka voorad mehed? '); textAttr:=15; writeln(' a)Jah,koguni vaga tihti '); writeln(' b)ainult vahetevahel '); writeln(' c)Ei,mitte kunagi '); writeln('sisesta vastus'); readln(y); begin; s:=0; if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0;end; textAttr:=2; writeln(' 2)Kas te valite oma riideid kindla maitse jargi? '); textAttr:=15; writeln(' a)Jah,seda kinnitatakse mulle ikka ja jalle '); writeln(' b)vahel tuleb kahjuks ette ka vale valikut '); writeln(' c)Ei,aga see ei hire mind absoluutselt '); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 3)Kas heidate vahel ise enda le nalja? ' ); textAttr:=15; writeln(' a)Jah,ma suudan ka iseenda le naera ' ); writeln(' b)Ainult usaldusvaarsete inimeste seltskonnas '); writeln(' c)Ei,pean seda toesti tobedaks'); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 4)Teile naeratabselvehallis voluv mees.Kuidas reageerite ? ' ); textAttr:=15; writeln(' a)Utlen midagi vaimukat ' ); writeln(' b)Naeratan vastu '); writeln(' c)Ignoreerin '); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 5)Millese tee valiksite,et juhututtavad lahemalt tundma oppida? ' ); textAttr:=15; writeln(' a)Kirjutan talle vaimuka kirja ' ); writeln(' b)voimalust,et temaga nagu juhuslikult vestlusesse astuda' ); writeln(' c)Ootan,kuni ta minuga kontakti votab'); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 6)Kas teile meeldis koolipaevil oppetoo? ' ); textAttr:=15; writeln(' a)Jah,olen alati aktiivne opilane' ); writeln(' b)Minu osalus oppetoos oli keskparane '); writeln(' c)Ei,olin vaikne ja tagasihoidlik'); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 7)Mis mote tuleb teile pahe,kui kuulete margusona "seiklus "? '); textAttr:=15; writeln(' a)Araarvamatu eopuga eksperemeelt... '); writeln(' b)Ponev elamus... '); writeln(' c)puhas kergemeelsus... '); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 8)Milleseid jargneat loetletud omadusi peate tahtsamaks? '); textAttr:=15; writeln(' a)Origenaalsus,spontaansus '); writeln(' b)Empaatiavome,kohanemisvoime '); writeln(' c)Tagasihoidlikus,kannatlikkus,kindlaameelsus '); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 9)Inimesed,kui palju naeravad,... '); textAttr:=15; writeln(' a)...on meeldivad,sobralikud,kaasaaegsed'); writeln(' b)...ihkavadteistega kooskola ja harmooniat '); writeln(' c)...on pigem pealiskaudsed ja mottelagedad '); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 10)Millena voitege olete koige enam nous?'); textAttr:=15; writeln(' a)Elus leidub palju ilusay'); writeln(' b)Elult ei maksa liiga palju oodata '); writeln(' c)Elu on tihti ebaoiglane ja karm'); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 11)Millese Hollywoodi staariga veedaksite mulsasti ohtu ?'); textAttr:=15; writeln(' a)Bruce Willise voi Kevin Costneriga'); writeln(' b)Tom Cruize, Richard Gereiga '); writeln(' c)Dustin Hoffmanui , Jack Nicholsoniga'); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; textAttr:=2; writeln(' 12)Teie arvamus kuulsat Casaunovast ?'); textAttr:=15; writeln(' a)Sarmautne vorukael'); writeln(' b)Kindlasti hea armuke '); writeln(' c)Mees,kel pole mingit moraali'); writeln('sisesta vastus'); readln(y); begin if y='a' then s:=s+5 else if y='b' then s:=s+3 else s:=s+0; end; writeln; textAttr:=5+Blink; writeln('Summa on','-',s); textAttr:=15; writeln; begin if s<=20 then begin assign(f,'a:tulemus.txt'); reset(f); while not eof(f) do begin readln(f,k); writeln(k, '!' ); readln(f,k); readkey; end; close(f); end; if (s>=21) and (s<=39) then begin assign(f1,'a:tulemus1.txt'); reset(f1); while not eof(f1) do begin readln(f1,r); writeln(r, '!' ); readln(f1,r); readkey; end; close(f1); end; if s>=40 then begin assign(f2,'a:tulemus2.txt'); reset(f2); while not eof(f2) do begin readln(f2,d); writeln(d); readln(f2,d); readkey; end; close(f2); end; writeln; writeln('Kas Teile meeldis minu test? (jah voi ei) '); readln(o); if o='jah' then writeln('Aitah') else begin writeln; writeln('Mul on kahju'); end; writeln; textAttr:=13+16*0; writeln('Head aega!!!'); delay(100); begin driver:=detect; InitGraph(Driver,Mode,''); IF GraphResult<>0 then halt; Randomize; REPEAT SetColor(Random(15)); Line(Random(GetMaxX),Random(GetMaxY),GetX,GetY); until Keypressed; CloseGraph; end;end;end.