program menus;
uses crt;
var c:char;
begin
     textbackground(blue);
     textcolor(yellow);
     repeat
     clrscr;
     gotoxy(38,11);
     write('IR');
     gotoxy(38,13);
     write('TOROL');
     gotoxy(38,15);
     write('KILEP');
     gotoxy(1,24);
     readln(c);
     if c='I' then
               while c<>'B' do
               begin
                clrscr;
                gotoxy(37,13);
                write('kiiras');
                gotoxy(1,24);
                readln(c)
               end;
     if c='T' then
               while c<>'B' do
               begin
                clrscr;
                gotoxy(1,24);
                readln(c)
               end;
     until c='K';
     textbackground(0);
     textcolor(7);
     writeln;
end.