program u47;
var MostRecent,NextMostRecent,Next,i,N:integer;
begin
write('please enter the ordinal number for the Fibonnacci Number you want ');
read(N);
writeln;

i:=2;
MostRecent:=1;
NextMostRecent:=1;
while(i<>N) do begin
Next:=MostRecent+NextMostRecent;
NextMostRecent:=MostRecent;
MostRecent:=Next;
i:=i+1;
end;

write('the Nth Fibonnacci number is ',MostRecent);
writeln;
end.