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.