Нужно сделать комментариями к программе (Вечный календарь на TurboPascal).

[ArtiomS]

А то не совсем понятно, что какое действие выполняет.. Вот сама программа:

Program kalendar;
uses crt;
const
 kd:array[1..7] of string=('Пн','Вт','Ср','Чт','Пт','Сб','Вс');
 month:array[1..12] of string=('Январь','Февраль','Март','Апрель','Май',
 'Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
 days:array [1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
var
 year:word;
 i,j,d,t:byte;
Begin clrscr;writeln('Введите год:');
 read(year);clrscr;
 d:=(2+(year-1901)+(year-1901) div 4); d:=d mod 7;
 if d=0 then d:=7;
 for i:=1 to 3 do
  begin
   for j:=1 to 7 do
    begin
     gotoxy(1,i+j+(i-1)*7);
     write(kd[j])
    end;
  for j:=1 to 4 do
   begin
    gotoxy(wherex+8,wherey-7);
    write(month[j+4*(i-1)]);
    gotoxy(wherex-6-length(month[j+4*(i-1)]),wherey+d);
    if year mod 4=0 then days[2]:=29;
     for t:=1 to days[j+(i-1)*4] do
      begin
{----------}
       if ((wherey-1) mod 8=7) then TextColor(LightRed);
       write(t);
       TextColor(LightGray);
{----------}
       if d+1=8 then begin
                  if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6)
                                      else gotoxy(wherex+1,wherey-6);
                  d:=1;end
                else begin d:=d+1;
                           if (t>=1) and (t<9)
                            then gotoxy(wherex-1,i+(i-1)*7+d)
                           else gotoxy(wherex-2,i+(i-1)*7+d);
                     end;
     end; gotoxy(wherex+3,i+i*7);
   end
 end ; 
 readln;
End.

[Cplusplus]

:\ мда..... сложно погуглить команды:?