program Project1;
 
{$APPTYPE CONSOLE}

uses
  SysUtils;
  var i,ii,x:integer;
  s:string;

begin
  ReadLn(s);

  //Алгоритм работы будет повторяться, пока  пользователь не введет команду exit
  while s<>'exit' do begin
    write('> ');
    ReadLn(s);
    for i:=1 to Length(S)  do
        case s[i] of
                //Если символ равен заглавной или прописной H, вывести  Hello, world!
             'H':writeLn(']  Hello, world!');
             'h':writeLn(']  Hello, world!');
             'Q':writeLn(s);
                //Если символ равен заглавной или прописной Q, вывести  переменную S.
                //Там код программы
             'q':writeLn(s);
             '+':Inc(x); //Если символ равен плюсу, увеличить икс.
             '9':begin //Символ девять выводит стих.
                 writeLn(']  99 bottles of beer');
                 for ii:=98 downto 1 do begin
                     writeLn(']  you take one down, pass it around,');
                     writeLn(']  '+IntToStr(ii)+' bottles of beer on the wall');
                     writeLn(']  ');
                     writeLn(']  '+IntToStr(ii)+' bottles of beer');
                 end;
                 writeLn(']  you take it down, pass it around,');
                 writeLn(']  no more bottles of beer on the wall.');
        end;
    end;
  end;
 
end.