В смысле "написАть"? Т.е. где написАть (в плане контекста)? Просто вывести на экран текстом? Если да - то: write ('п');
(*или*) writeln ('п'); Если графикой рисовать - то подключай модуль GraphABC - и там можешь, например, линиями рисовать или в стиле "textout"...