Выбери названия для текста-описания Выбери названия для текста-рассуждения Почему птицам зимой холодно?

Program Z1;
 Var n,i,s: real;
Begin
 write ('n=');
 read (n);
 S:=0;
 i:=3;
 while i<=n do
  Begin
   i:=i+4;
   S:=S+i;
  End;
 write ('S=',S);
End.