function Fib(n: integer): integer;
var
f,i,f1,f2:integer;
begin
if (n = 0) or (n = 1) then Fib:=1
else begin
f1:= 1;
f2:= 1;
for i := 2 to n do
begin
f := f1 + f2;
f2:= f1;
f1:=f;
end;
Fib:=f
end;
end;

function Sum(n: integer): integer;
var
a,S:integer;
begin
S:=0;
for a:=1 to n do S:= a + S;
Sum:=s;
end;

var n:integer;

begin
writeln('Введите число n');
readln(n);
writeln('Число n = ',n);
writeln(n,' число Фибоначчи: ',fib(n)); 
writeln('Сумма треугольных чисел ', Sum(n));
end.

Результат работы программы:
Введите число n
6
Число n = 6
6 число Фибоначчи: 13
Сумма треугольных чисел 21