> i got WA again but all tests and all discuss are OK
> 1-is all tested ok? (such as 31 2 2003)
> 2-is spaces after end of line important to be or not?
> such as
> ..[31]
> ...30
> or
> ..[31]
> ...30
> 3-also
> is it any different in
> 24..[31]
> 25......
> and
> 24..[31]
> 25.....
> and
> 24..[31]
> 25
> ????
> also may you give me some other tests???
> i check it by about 10 tests of discuss and also
> about 20time by windows calender...
> :(((
> Aidin_n7@hotmail.com
>
> ~*~*~*~*~~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
> Const
>   NameDay             : Array [0..6] of String =
>                         (('mon'),('tue'),('wed'),('thu'),
>                          ('fri'),('sat'),('sun'));
>   Moon                : Array [0..11] of byte =
>                         ((0),(3),(0),(3),(2),(3),
>                          (2),(3),(3),(2),(3),(2));
> Var
>   DD, MM, Fst, PP, MX :byte;
>   YY, I               :Integer;
>   S                   :Array[0..6] of string;
>   T                   :String[2];
>   Mark                :Array[0..800] of boolean;
>
> begin
>   ReadLn(DD,MM,YY); YY:=YY-1600;
>   For I := 0 to 150  do Mark[4  *I] := True;
>   For I := 0 to 8    do Mark[100*I] := False;
>   For I := 0 To 2    do Mark[400*I] := True;
>
>   fst:=(5+YY) mod 7;
>
>   For I := 0 to yy-1 do
>     If Mark[I] then
>       fst:=(fst+1) Mod 7;
>   If mark[YY] and (MM>2) then
>     fst:=(fst+1) mod 7;
>   Pp:=0;
>   For I:=1 TO (MM-1) Do
>     Pp:=(Pp+Moon[I]) Mod 7;
>   fst:=(fst+Pp) mod 7;
>
>   For I:=0 To 6 Do
>     S[I]:=Nameday[I];
>   For I:=0 to Fst-1 Do
>     S[I]:=S[I]+'    ';
>   For I:=Fst to 6 Do
>     If DD=I+1-fst Then
>       S[I]:=S[I]+' ['+' '+chr(48+I+1-fst)+']'
>     else
>       S[I]:=S[I]+'  '+' '+chr(48+I+1-fst);
>
>   MX:=28+Moon[MM];
>   If Mark[YY] and (Mm=2) then
>    Inc(MX);
>   For I:= 8-Fst To MX Do
>   begin
>     If I<10 Then
>       T:=' '+chr(48+I)
>     Else
>       T:=chr(48+(I div 10))+chr(48+(I Mod 10));
>     Pp:=(I+fst-1) mod 7;
>     S[Pp]:=S[Pp]+' ';
>     If DD<>I-7 then
>       S[Pp]:=S[Pp]+' ';
>     If I=DD then
>       S[Pp]:=S[Pp]+'['+T+']'
>     else
>       S[Pp]:=S[Pp]+' '+T;
>   End;
>   mx:=0;
>   For I:=0 to 6 do
>     if length(S[I])>mx then
>       MX:=length(s[i]);
>   For I:=0 To 6 do
>   begin
>     write(S[I]);
>     if mx-1>length(s[i]) then
>       For Pp:=1 to Mx-length(S[I]) do
>         write(' ');
>     writeln;
>   end;
> End.

What's the point of doing easy problems like this?
just do the hard ones :)
speaking of which,  did you get my e-mail a few days ago???