кодирование путем повторения символов

[катерина_к]

Здравствуйте!!!! помогите плиз с 2-мя программами на паскале, т. к. в нем я ничего не понимаю(((.

1)программа кодирования путем повторения символов. В программу должно вводиться натуральное число. Если четное, то программа просит ввести нечетное число. Если нечетное число, то должна вводиться последовательность двоичных символов. Каждый символ этой последовательности повторяется введенное нечетное число раз и формируется выходная последовательность из повторных символов.

2)определение даты по порядковому номеру в диапазоне. например вводим число 364, выводится дата 30 декабря 2009 года.
Заранее огромное спасибо!!!!

[Serge_Bliznykov]

Катя, по второй задаче.
a) условие неполное - что значит "по порядковому номеру в диапазоне"? в каком диапазоне? Год какой? високосность учитывается?

b) ладно. дарю. под свои нужды подправите сами...

const
  MonthName : array[1..12] of string =
('Января','Февраля','Марта','Апреля','Мая','Июня','Июля',
'Августа','Сентября','Октября','Ноября','Декабря');  


{*                    OPDATE.PAS 1.21                    *}
{*     Copyright (c) TurboPower Software 1988, 1992.     *}

  function IsLeapYear(Year : Integer) : Boolean;
    {-Return True if Year is a leap year}
  begin
    IsLeapYear := (Year mod 4 = 0) 
          and (Year mod 4000 <> 0) and
            ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;


  function DaysInMonth(Month, Year : Integer) : Integer;
    {-Return the number of days in the specified month of a given year}
  begin
    case Month of
      1, 3, 5, 7, 8, 10, 12 :
        DaysInMonth := 31;
      4, 6, 9, 11 :
        DaysInMonth := 30;
      2 :
        DaysInMonth := 28+Ord(IsLeapYear(Year));
    else
      DaysInMonth := 0;
    end;
  end;
  
var
  God, NomDay, TempNomDay, CurMonth : integer;

begin
  WriteLn('Введите год (>1900): ');
  Readln(God);
  if God<1900 then begin
    WriteLn('#ошибка: год слишком мал... Bye...');
    Halt;    
  end;
  WriteLn('Введите номер дня в году (>0 и <367): ');
  Readln(NomDay);
  if (NomDay<1) or (NomDay>(365+Ord(IsLeapYear(God)))) then begin
    WriteLn('#ошибка: неверный номер дня в ',God:1,' году! Bye...');
    Halt;    
  end;
  CurMonth := 1;
  TempNomDay := NomDay;
  while TempNomDay>DaysInMonth(CurMonth,God) do
  begin
    TempNomDay := TempNomDay - DaysInMonth(CurMonth,God);
    Inc(CurMonth);
  end;
  
  WriteLn(NomDay:1,'-й день - это ',
     TempNomDay:1,' ',MonthName[CurMonth],' ',God:1,' года.');
  Readln;
end.

[катерина_к]

спасибо огромное!!! очень вам благодарна!!!