Программа имеет заголовок следующего вида Program имя ; Имя - это имя программы. Идентификатор имени имеет не более семи символов. Имя начинается с буквы и не должно содержать ^, -

PROGRAM ИМЯ; PROGRAM ИМЯ; ___________________________Заголовок программы Раздел описания типов данных LABEL m1; LABEL m1; _______________________________Раздел описания меток CONST a=5; CONST a=5; ______________________________Раздел описания констант TYPE; TYPE; ___________________________________Раздел описания типов, конструируемых пользователем VAR x, y, b: integer; VAR x, y, b: integer; ______________________Раздел описания переменных PROCEDURE и FUNCTION; PROCEDURE и FUNCTION; _______________Раздел описания процедур и функций BEGIN BEGIN __________________________________Служебное слово начала раздела операторов Read ReadLN (переменная, переменная...) ; ____ Операторы ввода Y : = a + b ; _______________________ Арифметические операторы присваивания Write WriteLN (переменная, переменная, …) ; _ Операторы вывода. END. _______________________ Программа всегда завершается оператором вида

Program prim ; Var Y, a, b : integer ; Begin Read (a, b) ; Y : = a + b ; WriteLn (Y) ; End.

Program prim ; Var Y, a, b : real ; Begin Read (a, b) ; Y : = a + b ; WriteLn (Y) ; End. Заголовок программы Раздел описания переменных ТЕЛО ПРОГРАММЫ

интерфейс вывода Program prim ; Var Y, a, b : real ; Begin Read (a, b) ; Y : = a + b ; WriteLn (Ответ Y=, Y) ; WriteLn; End.

Program prim ; Var Y, a, b : real ; Begin Read (a, b) ; Y : = a + b ; WriteLn (Ответ Y=, Y:4:2) ; WriteLn; End. Форматный вывод

Program prim ; Var Y, a, b : real ; Begin WriteLn (Введите значения переменных a, b) ; Read (a, b) ; Y : = a + b ; WriteLn (Ответ Y=, Y:4:2) ; WriteLn; End. интерфейс ввода

Program prim ; Uses crt; Var Y, a, b : real ; Begin WriteLn (Введите значения переменных a, b) ; Read (a, b) ; Y : = a + b ; WriteLn (Ответ Y=, Y:4:2) ; End.

Program prim ; Uses crt; Var Y, a, b : real ; Begin Clrscr; WriteLn (Введите значения переменных a, b) ; Read (a, b) ; Y : = a + b ; WriteLn (Y) ; WriteLn (Ответ Y=, Y:4:2) ; Readkey; End.