Подпрограммы (Паскаль)

function <имя> (<параметры>): <тип_результата>;
begin
 <операторы>;
 <имя> := <значение>;
end;

procedure <имя> (var <параметры-переменные>; <параметры-значения>);
 begin
  <операторы>;
 end;

program Factorial;
function factorial (n: integer): {{longint;
var i: integer; r: longint;
begin r := 1;
 for i := 2 to n do r := r * i;
 factorial := r;
end;
var n: integer;
Begin n := 5;
 write (factorial (n));
End.

program AddExample;
procedure AddTo (var x: integer; amount: integer);
begin
 x := x + amount;
end;
var a: integer;
Begin
 a := 10;
 AddTo (a, 5);
writeln (a);
End.