Sound (A :Word) звук
NoSound нет звука
Delay (A :Word) отсрочка
ReadKey :Char читай клавишу
KeyPressed :Boolean клавиша нажата
TextColor (A :Byte) цвет текста
TextBackground (A :Byte) цвет фона
ClrScr очистка экрана
GotoXY (X,Y :Byte) иди к икс игрек
Модуль Graph
InitGraph (d,m :Integer; path :String) инициализация графики
CloseGraph закрытие графики
PutPixel (x,y :Integer; color :Word) поставь пиксел
GetPixel (x,y :Integer) :Word получи пиксел
Line(x1,y1, x2,y2 :Integer) отрезок прямой линии
Rectangle (x1,y1, x2,y2 :Integer) прямоугольник
Bar (x1,y1, x2,y2:Integer) залитый прямоугольник
Bar3D (x1,y1, x2,y2:Integer; tol:Word; top:Boolean) параллелепипед
Circle (x,y :Integer; r :Word) окружность
Arc (x,y :Integer; fi1,fi2,r :Word) дуга окружности
PieSlice (x,y :Integer; fi1,fi2,r :Word) кусок пирога (залитый сектор круга)
Ellipse (x,y :Integer; fi1,fi2, rx,ry :Word) эллипс
Sector (x,y :Integer; fi1,fi2, rx,ry :Word) залитый сектор эллипса
FillEllipse (x,y :Integer; rx,ry :Word) залитый эллипс
SetColor (color :Word) установить цвет линий
SetLineStile (ls,uzor,tolsh :Word) установить стиль линий
SetFillStyle(uzor,color :Word) установить стиль заливки
FloodFill(x,y :Integer; granitsa :Word) заливка
GetMaxX :Integer получи максимальный икс
GetMaxY :Integer получи максимальный игрек
GetImage (x1,y1, x2,y2 :Integer; var A[12]) получи изображение
PutImage (x1,y1 :Integer; var A; mode :Word) помести изображение
ImageSize (x1,y1, x2,y2 :Integer) размер изображения
OutTextXY (x,y :Integer; stroka :String) вывод текста
SetTextStyle (shrift,napravl,razmer :Word) установи стиль текста
SetUserCharSize (A,B, C,D :Word) установи пользовательский размер символов
Модуль DOS
GetTime (var chas,min,sec,sotki :Word) получи время
SetTime (chas,min,sec,sotki :Word) установи время
GetDate (var god,mes,den,dennedeli :Word) получи дату
SetDate (god,mes,den :Word) установи дату
Работа со строками
Pos (s1,s :String) :Byte позиция
Length (s :String) :Byte длина
Copy (s :String; a,b :Integer) :String копируй
Delete (var s :String; a,b :Integer) удаляй
Insert (var s :String; s1 :String; a :Integer) вставляй
Работа с файлами
Assign (var f: Text; filename :String) упрощенно присвоить
Rewrite (var f: Text) упрощенно переписать
Reset (var f: Text) упрощенно переустановить
Close (var f: Text) упрощенно закрыть
Append (var f: Text) добавить
Прочие
Chr (A :Byte) :Char символ
GetMem(P :Pointer; razmer :Word) выдели память
New (var p: Pointer) новый