Рекурсия и последовательность Фибоначчи

program z1;
uses crt;
const n=5;k=4; 
type matr=array [1..n,1..k+1] of real; 
procedure Print(var mt:matr);{procedyra vyvoda matrici na ekran}
var i,j:byte;
begin
writeln('proizvedenie':k*6*15); 
for i:=1 to n do {сорторуємо за зростанням}
 begin
  for j:=1 to k+1 do    
  if j=k+1 then write(mt[i,j]:10:2){pod dopolnitrlnyi stolbets vydelyaem 10 pozicij v stroke}
  else write(mt[i,j]:5:2);{pod ostalnye 5 pozicij v stroke }
  writeln;
 end;
end;
 
var b:matr; 
    p,x:real;
    i,j,l:byte;
begin
clrscr;
randomize;
for i:=1 to n do 
for j:=1 to k do
b[i,j]:= random*10;{sozdajom massiv}
for i:=1 to n do
 begin
  p:=1;
  for j:=1 to k do
  p:=p*b[i,j];{v kagdoj stroke schitaem proizvedenije}
  b[i,k+1]:=p;{zapisivajem ego v dopolnitelnyj stolbets}
 end;
writeln('ishodnya matrica:'); {значення поточної матриці}
Print(b);
for i:=1 to n-1 do 
for j:=i+1 to n do
if b[i,k+1]>b[j,k+1] then{sortiryjem poslednyj stolbets po vozrastanijy}
for l:=1 to k+1 do{vmeste s ostalnymi stolbtsami}
 begin
  x:=b[i,l];
  b[i,l]:=b[j,l];
  b[j,l]:=x;
 end;
writeln('rezultat:'); 
Print(b);
readln;
end.

Program z_2;
Uses crt;
Var x,y,z,u:real; {vvod peremennyh}
function f (x,y,z:real):real; 
begin
f:=(1+sqr(sin(x+y)))/(2+abs(x-2*x/(1+sqr(x)+sqr(y))))/sqr(cos(arctan(1/z)));
end;
begin
x:=2.3156; {prisvojenie znachenija x zadanogo v usloviji}
y:=-1.3785;{prisvojenie znachenija y zadanogo v usloviji}
z:=0.578; {prisvojenie znachenija z zadanogo v usloviji}
U:=f (x,y,z);
Writeln (' x = ' , x:10, ' y = ' ,  y:17:6, ' z = ' , z);
Writeln ('Znachenie funkcii =',U); {vyvod rezultata funcii na ecran}
readln;
end.

Var a,b,s,t :longint;
begin
a:=1;
b:=1;
s:=0;
for t:=1 to 6 do
begin
s:=a+b;
a:=b;
b:=s
end;
writeln('8 element fibonnachi=', s:6:3)
end.

program f;
var
n: integer;
function Fac(n:integer):integer;
begin
if n<0 then
writeln ('pomilka v zadanni N')
else
if n=0 then
Fac:=1
else
begin
F:=Fac(n-1);
Fac:=F*n
end
end;
F:=1*2*3*4*5*6*7;
begin
repeat
readln (n);
writeln ('n!= ', Fac(n))
end.

uses crt;
var n:integer;
function Fac(n:integer):longint;
begin
if n=1 then Fac:=1
else fac:=n*fac(n-1);
end;
begin
clrscr;
write('8!=',fac(8));
readln
end.