На каждом следующем дне рождении винни съедает столько же меда, сколько съел на двух предыдущих вместе. на двух первых днях рождения у пяточка и кролика он съел по 0,1 кг меда. определить, сколько кг меда он съест на десятом дне рождении. программа должна быть написана с цикла в паскале.
i:integer;
s,p,p1:real;
begin
p:=0.1;
p1:=0.1;
for i:=3 to 10 do
begin
s:=p1+p;
p1:=p;
p:=s;
end;
writeln('ответ: ',s);
end.