dwie choinki z instrukcją warunkową if-else

program rysowanie_choinki;

var a:string;

begin

writeln('Jaka choinke narysowac? P-Pusta, W-Wypelniona');
readln(a);
if (a = ('p')) or (a = ('P')) then
writeln('           /\            ');
writeln('          /  \           ');
writeln('         /    \          ');
writeln('        /      \         ');
writeln('       /        \        ');
writeln('      /          \       ');
writeln('     /            \      ');
writeln('    /              \     ');
writeln('   /                \    ');
writeln('  /                  \   ');
writeln(' /                    \  ');
writeln('/======================\ ');
writeln('         |  |            ');
writeln('         |  |            ');
writeln('         |  |            ');
read;
end.

else
writeln('           /\            ');
writeln('          /**\           ');
writeln('         /****\          ');
writeln('        /******\         ');
writeln('       /********\        ');
writeln('      /**********\       ');
writeln('     /************\      ');
writeln('    /**************\     ');
writeln('   /****************\    ');
writeln('  /******************\   ');
writeln(' /********************\  ');
writeln('/======================\ ');
writeln('         |  |            ');
writeln('         |  |            ');
writeln('         |  |            ');
read;
end.