Пример программы с использованием процедуры для печати заголовка таблицы

Program Table;
uses
  WinCrt;
var
  i: integer;
  h,a: real;
procedure Header (n: integer);
  var
    i: integer;
  begin
    writeln;
    writeln (' Таблица ?', n);
    for i:=1 to 20 do
     write ('-');
    writeln;
  end;
function f1 (x:real);
  begin
    f1:=sin(x);
  end;
function f2 (x:real);
  begin
    f2:=cos(x);
  end;
begin
  Header(1); (*Вызов процедуры*)
  writeln('Нач.значение аргумента и шаг?');
  read(a,h);
  for i:=0 to 10 do
    writeln(a+i*h:8:3,f1(a+i*h):12:7);
  Header(2); (*Вызов процедуры*)
  for i:=0 to 10 do
    writeln(a+i*h:8:3,f2(a+i*h):12:7);
end.

Пояснения

Структура программы
program
Uses
var
Правила записи имен
Integer
real
procedure
function
Формальные параметры
Фактические параметры
begin
write, writeln
for...do...
Вызов процедуры
Комментарий
read
Арифметические выражения
end