Program NAME;                  { Заголовок программы - не обязательный оператор }
                                                         { NAME - имя программы }
{ Раздел описания }
Uses
  CRT, DOS, GRAPH;                      { Подключение библиотек CRT, DOS, GRAPH }
Label
  L1, L2, L3;                { Список используемых в программе меток L1, L2, L3.}
Const                     { Задание значений констант, используемых в программе }
  C=10; B=0.15;                       { С - целое число, В - вещественное число }
  Y=True; F='Фамилия';         { Y- Логическая константа, F - Символьная строка }
       
Type                                    {Описание типов введенных программистом }
  M = array[1..100] of integer;                     { массив из 100 целых чисел }
Var                                                       { Описание переменных }
  m1, m2 : M;                           { m1, m2 - массивы целых чисел (типа М) }
  a1 : array[1..100 ] of real;                 { а1 - массив вещественных чисел }
  ch : array[1..200 ] of char;                           { ch - массив символов }
  ch1, ch2 : char;                           { ch1, ch2 - символьные переменные }
  s : string[79];                                   { s - строка до 79 символов }
  a, d, x : real;                           { a, d, x - вещественные переменные }
  yes,  no : boolean;                   { yes, no - переменные логического типа }
  f1, f2 : text;                     { переменные для описания текстовых файлов }

Procedure NAME_1(Parm1 : Real; Var Parm2 : Real);         { Заголовок процедуры }
                             { NAME_1 - имя процедуры, Parm1, Parm2 - параметры }
{ Раздел описания }
BEGIN
{ Раздел выполнения }
END;

Function FUN_1(Parm3, Parm4 : Real) : Real;                 { Заголовок функции }
                                { FUN_1 - имя функции, Parm3, Parm4 - параметры }
{ Раздел описания }
BEGIN
{ Раздел выполнения }
END;

BEGIN                                             { Начало выполнения программы }
                                          {  Раздел выполнения (тело программы) }
END.                                               { Конец выполнения программы }

Содержание