Пример программы с использованием функции

Program Uses_F;
uses
  WinCrt;
const
  a:=0.5;
  b:=1.5;
var
  s,dx: real;
  n,I: integer;
Function f(x:real): real;
  begin
    f:=1/x;
  end;
begin   read(n);
  dx:=(b-a)/n;
  s:=0.5*(f(a)+f(b)); (* В арифм.выражении использованы два вызова
                         одной и той же функции *)
  for I:=1 to n-2 do
    s:=s+f(a+I*dx);
  writeln(s*dx);
end.

Пояснения

Структура программы
program
Uses
const
Правила записи имен
Правила записи чисел
var
Integer
real
function
Формальные параметры
begin
read
Присвоение (:=)
Арифметические выражения
Фактические параметры
Комментарий
for...do...
Составной оператор
writeln
end