На каждом следующем дне рождении Винни съедает столько же меда, сколько съел на двух предыдущих вместе. На двух первых днях рождения у пяточка и кролика он съел по 0,1 кг меда. Определить, сколько кг меда он съест на десятом дне рождении.Программа должна быть написана с помощью цикла в паскале.
program WinnieBirthday;
var
day: integer;
honey, previousDay1, previousDay2: real;
begin
previousDay1 := 0.1;
previousDay2 := 0.1;
for day := 3 to 10 do
begin
honey := previousDay1 + previousDay2;
previousDay2 := previousDay1;
previousDay1 := honey;
end;
writeln('На десятом дне рождения Винни съест ', honey:0:1, ' кг меда');
end.