program Hello;
uses crt;
var n:integer;
function tong(a:integer): longint;
begin
    if a >= 1 then
        tong:= tong(a-1)+a;
end;
function tich(b:qword): qword;
begin
    tich:=1; 
    if b >= 1 then
        tich:= tich(b-1)*b;
end;
begin
    clrscr;
    readln(n);
    writeln('S = ', tong(n));
    writeln('S = ', tich(n));
end.

Hàm:

uses crt;
var n:longint;

function sum(n:longint):real;
begin
    sum:=0;
    exit(n*(n+1)/2);
end;

function tich(n:longint):longint;
var i:longint;
begin
    tich:=1;
    for i:=1 to n do tich:=tich*i;
end;

begin
clrscr;
    readln(n);
    writeln(sum(n):0:0);
    writeln(tich(n));
readln;
end.

Thủ tục:

uses crt;
var n:longint;

procedure sum(n:longint);
var s:real;
begin
    s:=n*(n+1)/2;
    writeln(s:0:0);
end;

procedure tich(n:longint);
var i,res:longint;
begin
    res:=1;
    for i:=1 to n do res:=res*i;
    write(res);
end;

begin
clrscr;
    readln(n);
    sum(n);
    tich(n);
readln;
end.