Ребята, помогите, пожалуйста)
1) Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал норму на 10 % от нормы предыдущего дня.Определить через сколько дней его норма превысит 20 км.
2) Винни Пух ходит на дни рождения. На двух первых днях рождениях у Пяточка и Кролика он съел по 100 грамм пищи. На каждом следующем дне рождения Винни Пух съедает столько же пищи, что и на двух предыдущих. Составить таблицу, определяющую сколько кг пищи Винни Пух съест на 15 дне рождения.

1. uses crt;var k:integer;a:real;beginclrscr;a:=10;k:=1;while a<=20 do      begin      a:=a+a*10/100;      k:=k+1;      end;writeln ('Норма превысит 20 км на ',k,' день');end.      2.uses crt;var k:integer;m:array [1..15] of real;beginclrscr;m[1]:=0.1;m[2]:=0.1;for k:=3 to 15 do    begin    m[k]:=m[k-1]+m[k-2];    end;for k:=1 to 15 dowriteln (k:3 ,' день',m[k]:8:1,' кг');end.