Процедура или функция Смысл

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) новый