ClrScr;

B := 187;

Writeln('201: ', #201); {вывод символа по его коду}

Writeln('205: ', chr(205));{возвращает символ, номер которого в ASCII таблице задан параметром}

Writeln('187: ', chr(B)); { }

Write('186: ', #186, #13, #10);{ вывод символов #13 (перенос строки) и #10 (возврат каретки)}

Write('188: ', #188); {}

Write(#$0d,#$0a,'200: ',#200);{символы с №, который задан числом в 16-й системе: $0d - 13, $0a - 10}

MakeWindow(10, 10, 40, 20);{построение окошек по заданным координатам}