Testing

program Beta;
var
hp,mhp:integer;
MN:string;
function Monster:string;
    begin
        Monster:='Demon';
        MN:=Monster;
        mhp:=1000;
        writeln('   1010101            10101010                   ');
        writeln(' 10     011          101      10                 ');
        writeln('1          0  1010  0           1                ');
        writeln('           ##########                            ');
        writeln('            #  ##  #                             ');
        writeln('              #  #                               ');
        writeln('            ##l##l##                             ');
        writeln('              l  l                               ');
        writeln(' 101010101010  AA  10101010101010                ');
        writeln(' 10101   ----  AA  -----    10101                ');
        writeln(' 01010   ----      -----    01010                ');
        writeln(' 10101   ----      -----    10101                ');
        writeln(' 01010   ----  AA  -----    01010                ');
        
        writeln;writeln;writeln;
    end;

procedure Combat;
    begin
    writeln(MN);
    end;



begin
    hp:=100;
    writeln(Monster,'is Coming!!!!!!');
    Combat;
end.