На каждом следующем дне рождении Винни съедает столько же меда, сколько съел на двух предыдущих вместе. На двух первых днях рождения у пяточка и кролика он съел по 0,1 кг меда. Определить, сколько кг меда он съест на десятом дне рождении.
Программа должна быть написана с помощью цикла в паскале.

var  i:integer;  s,p,p1:real;beginp:=0.1;p1:=0.1;for i:=3 to 10 dobegin  s:=p1+p;  p1:=p;  p:=s;end;writeln('Ответ: ',s);end.