Как сделать объемную букву Р в Паскале АВС

Program obiemnayaP;begin );writeln(  /||||||||||||||\);  writeln(  /||||||||||||||\);  writeln(  /||||\-----||||\);writeln(  /||||\     ||||\);writeln(  /||||\     ||||\);writeln(  /||||||||||||||\);writeln(  /||||||||||||||\);writeln(  /||||\---------\);writeln(  /||||\);writeln(  /||||\);end.