FreePascal.ru

Здравствуйте нужна помошь
что делает программа ,а лучше напишите условия задачи.
заранее благодарен
Begin
c:=2;
s:=0;
for n:=1 to 50 do
begin
с:=6-с;
у:=n/(100+n);
s:=s+с*у;
end;
s:=s+0.5;
writeln(’I = ’, s/300.0);
readln;
End.

program zz2;
uses crt;
var
A,B,C,D,F:real;
begin
writeln('введем день');
readln(A);
writeln('введем месяц');
readln(B);
if B>12 then
begin
writeln('некоректно введен месяц');
readln;
end
else
begin
writeln('введем год');
readln(C);
if B=9 then
writeln('осень сентябрь через 3 мес зима');
readln ...

Здравствуйте !!! Помогите с решение задачь никак не получаеться

9. Ввести подряд пять чисел. Найти то из них, значение которого ближе всего к среднему арифметическому наибольшего и наименьшего из них.
29. Написать программу, которая после ввода пользователем текущей даты сообщает, какое время года ...