Ребят помогите с решением

[Karies]

Народ мне дали тут несколько задач если можете помогите их решить буду очень презнателен =)
Задача№1
Описать функцию которое находит число фибоначи от 1 до n.


Задача№2Имеется следущее описание:
Var y:1901...2000
m: месяц;
d:1...31:
t:boolean
Переменой t присвоить значение true если тройка y,m,d образуют правельную дату и значение False - иначе (при 31 июня и.т.п)

Задача№3
Два натуральных числа называют дружествеными, если каждое из них равна сумме всех дилителей другого, кроме самого этого числа. Найти все пары дружественых чисел лежащих в диапозоне от 200 до 300.

PS: И мне сказали 3 задачу решить 3 циклами FOR, Reped, While.

Помогите ришить эти задачки плиз =)

[VoRTeX]

1.

var
   i, n:byte;
   f, s, tmp:word;
begin
     n:=20;
     f:=1;
     s:=1;
     if n>=2 then Write(1, ' ', 1, ' ');
     if n=1 then Write(1);
     for i:=1 to n do
     begin
          tmp:=f;
          f:=tmp+s;
          s:=tmp;
          Write(f, ' ')
     end;
     Readln;
end.

[alex_fcsm]

var i,j:integer;

function Sum(x:integer):integer;
var i,n:integer;
begin
n:=0;
 for i:=1 to x-1 do
  if x mod i = 0 then n:=n+i;
Sum:=n;
end;

begin
for i:=200 to 300 do
  for j:=300 downto i do
    if i<>j then begin
                   if (Sum(i)=j) and (Sum(j)=i) then writeln(i,' ',j);
                 end;
readln;
end.

[Karies]

=)) Спасибо ребят =)) Мне бы еще 2 и вы мну спасли =))