На каждом следующем дне рождения винни – пух съедает столько же пищи, сколько на двух предыдущих. на двух первых днях рождения у пяточка и кролика он съел по 100 грамм пищи. написать программу, определяющую, на каком дне рождения вес съеденной пищи превысит собственный вес винни – пуха. только это надо решить в delphi.

Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100; 
dn:=100; k:=2;
while dn<=m do
 begin
 dn:=d1+d2;
 d1:=d2;
 d2:=dn;
 k:=k+1;
 end;
writeln('k = ',k,' dn = ',dn);
end.

Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300

Можно знаками и таблицами,ибо инным Просто я работаю в Коралле;)