У этой гусеницы цикл 5 сек. Т. е. каждые 5 секунд она одинаковая.
Значит через 2015 сек она будет такой же, как изначально. А потом, ещё через 4 сек она станет (начинаю с головы) Желто-Сине-Зелёно-Чёрно-красная
#010101 цвет..............
Var x,y: real;
begin
read(x);
if x>=0 then
begin
y:=5*sqr(x)*sqr(x)*x-sin(x);
writeln(y);
end;
end.