program mangis; uses crt; var i,k: integer; nimi,h,vastus,vas:string; t: char; a: array[1..10] of char; procedure poomine; begin i:=0; Writeln('Pa „ra arvata ks kmne t„heline sona, pakkudes t„hti.'); writeln('V“ta teadmiseks et sul on ainult 14 elu! Säna on j„rgmine:'); writeln('L _ _ _ _ _ _ _ _ T'); a[1]:='L'; a[2]:='_'; a[3]:='_'; a[4]:='_'; a[5]:='_'; a[6]:='_';a[7]:='_'; a[8]:='_'; a[9]:='_';a[10]:='T'; while t<>chr(13) do begin readln(t); if t='e' then for k:=1 to 10 do begin a[2]:='E'; write(a[k]);end else if t='m' then for k:=1 to 10 do begin a[3]:='M'; write(a[k]);end else if t='n' then for k:=1 to 10 do begin a[4]:='N'; write(a[k]);end else if t='i' then for k:=1 to 10 do begin a[5]:='I'; write(a[k]);end else if t='s' then for k:=1 to 10 do begin a[6]:='S'; write(a[k]); end else if t='k' then for k:=1 to 10 do begin a[7]:='K'; write(a[k]); end else if t='a' then for k:=1 to 10 do begin a[8]:='A'; a[9]:='A'; write(a[k]); end else if (t=chr(13))and(a[2]='E')and(a[3]='M')and(a[4]='N')and(a[5]='I')and(a[6]='S')and(a[7]='K')and(a[8]='A') then writeln('Tubli arvasid säna „ra. M„ng on l„bi!') else begin writeln('See t„ht ei sobi proovi uuesti'); i:=i+1; if 14-i<=0 then writeln(' Kahjuks oled nyyd yles poodud.') else writeln(' Sul on alles nd ',14-i,' elu'); end; writeln; end; end;{poomine} begin clrscr; textcolor(red); writeln(' T E R E !'); textcolor(white); gotoxy(2,5); writeln('Mina olen arvuti, aga kes sina oled?'); readln(nimi); clrscr; textBackground(blue); Textcolor(green); writeln(nimi,' ,mis sa arvad hest poomism„ngust? (ja/ei)'); readln(vas); textbackground(black); if vas='ei' then writeln(' Kahju, et sa minuga m„ngida ei taha voi ei saa. Kordame seda moni teine kord.'); if vas='ja' then begin poomine; textcolor(red); { writeln('Kas tahad veel proovida?(ja/ei)'); readln(h); if h='ja' then begin poomine; end else } writeln('Ilusat p„eva j„tku sulle'); textcolor(white); end; readln; end.