[sandycrazy]

на pascal'е

Код:

Program Fibonache;
uses crt;
var x,y,z,n,i: longint;
begin;
clrscr;
x:=1; y:=1;
write ('‡*¤*©вҐ Ї®ап¤Є®ўл© *®¬Ґа зЁб«* ”ЁЎЎ***зЁ:   ');
readln(n);
   for i:=3 to n do begin;
   z:=x+y; y:=x; x:=z;
   end;
       if n<3 then z:=1;
writeln ('зЁб«® ”ЁЎЎ®**зЁ:  ',z);
readln;
end.

на pascal'е с помощью процедуры

Код:

Program Fibonache;
uses crt;
var x,y,z,n,i: longint;
procedure shet (n:longint; var z:longint);
begin;
  if n>=3 then begin; shet (n-1,z);
  z:=x+y; y:=x; x:=z;
  end else if n=3 then begin x:=1;y:=1;z:=2 end else begin x:=1; y:=1; z:=1; end;
end;
begin;
clrscr;
write ('‡*¤*©вҐ Ї®ап¤Є®ўл© *®¬Ґа зЁб«* ”ЁЎЎ***зЁ:   ');
readln(n);
shet (n,z);
writeln ('зЁб«® ”ЁЎЎ®**зЁ:  ',z);
readkey;
end.

то что каракули, там чё то по русски, а на дэлфи не долго переделать язык одинаковый