Структура основной программы с использованием подпрограмм

PROGRAM <имя_программы>;{Заголовок основной программы}

LABEL

CONST

TYPE

VAR

PROCEDURE <имя_процедуры> (<список_формальных_параметров>);

LABEL

CONST

TYPE

VAR

BEGIN

{тело процедуры}

END;

FUNCTION <имя_функции> (<список_формальных_параметров>): <тип_возвращаемого_результата>;

LABEL

CONST

TYPE

VAR

BEGIN

{тело функции}

END;

BEGIN

{тело основной программы}

END.