VAR N:INTEGER;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET (INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE (OUTPUT);
      READLN(N);
      IF (N MOD 400=0) OR ((N MOD 4=0) AND (N MOD 100<>0))  
         THEN WRITE('12/09/') ELSE WRITE('13/09/');
      IF N<10 THEN WRITE('000')  
              ELSE  
              IF N<100 THEN WRITE('00')  
                       ELSE
                       IF N<1000 THEN WRITE('0');
      WRITE(N)
END.

#include <fstream.h>
int length(int a)
{
    int k=0;
    while (a!=0)
    {
     k++;
     a/=10;
    }
    return k;
}
void main()
{
    ifstream fin("input.txt");
    ofstream fout("output.txt");
    int i=4;
    int n;
    fin >> n;
    if (n%400==0 || (n%4==0 && n%100!=0))
    {
     fout << "12/09/";
     switch(length(n))
     {
     case 3: fout << "0" << n; break;
     case 2: fout << "00" << n; break;
     case 1: fout << "000" << n; break;
     default : fout << n;
     }
     fout << endl;
    }
    else    
    {
     fout << "13/09/";
     switch(length(n))
     {
     case 3: fout << "0" << n; break;
     case 2: fout << "00" << n; break;
     case 1: fout << "000" << n; break;
     default : fout << n;
     }
     fout << endl;
    }
}

Private Sub Form_Load()
a = FreeFile
Open "input.txt" For Input As #a
Input #a, s
Close #a

While Len(s) <> 4 ' Qani der taretvi erkarutyun@ = che 4-i, taretvi skzbic avelacnum enq 0
s = "0" + CStr(s)
Wend

If s Mod 400 = 0 Or s Mod 4 = 0 And s Mod 100 <> 0 Then ' ete tarin nahanj e
s = "12/09/" + CStr(s)
Else
s = "13/09/" + CStr(s) ' ete voch `
End If

Open "output.txt" For Output As #a
Print #a, s
Close #a

End Sub

using System;
using System.IO;
class Birthday
{
     public static void Main()
     {
         using (StreamReader inp=new StreamReader("input.txt"))  
         {  
             int n=Convert.ToInt32(inp.ReadLine());
             inp.Close();  
         }  
         using (StreamWriter outp=new StreamWriter("output.txt"))  
         {  
             if (n%400==0 || (n%4==0 && n%100!=0))  
             {
                 string s="12/09/";  
                 string sn=n.ToString();
                 sn=sn.PadLeft(4,'0');
                 outp.WriteLine(s+sn);
             }       
             else
             {
                 string s="13/09/";  
                 string sn=n.ToString();
                 sn=sn.PadLeft(4,'0');
                 outp.WriteLine(s+sn);  
             }     
             outp.Close();  
         }
     }   
}