По рисунку расскажите о биологическом круговороте веществ в светлое время суток.

Vari:integer;
c:real;
begin
readln(c);
Repeat
     i:=i+100; 
       writeln(i,'g: ',c*0.001*i);
until i>=2000
end.