Cho xâu kí tự S (S có từ4-6 kí tự) được quy ước như sau : hai kí tự cuối là hai chữ số cuối của một năm trong tk 21 một hoặc hai ký tự đầu cho biết ngày các kí tự còn lại là thángViết chương trình pascal tạo ra các ngày có dạng ngày/thangs/ năm hợp lệ được sâu S .n Nếu ko hợp lệ ghi No Biết rằng tháng1,3,5,7,8,10 có 31 ngày , tháng còn lại có 30 ngày , riêng tháng 2 năm thường có 28 ngày ,năm nhuận cis 29 ngày. Năm nhuận là năm chia hết cho 4 và ko chia hết cho 100 hoặc năm chia hết cho 400 (pascal)

var s:string;
ng,t,n,l: integer;
begin
readln(s);
l:=length(s);
  if (l<4) or (l> 6) then
  begin
    writeln('No');
    exit;
  end;
  val(copy(S,l-1,2),n);
  n:=n+2000;
  if l=4 then
  begin
    val(copy(S,1,1),ng);
    val(copy(S,2,1),t);
  end
  else if l=5 then
  begin
    if S[2] in ['0'..'9'] then
    begin
      val(copy(S, 1, 2), ng);
      val(copy(S, 3, 2), t);
    end
    else
    begin
      val(copy(S, 1, 1), ng);
      val(copy(S, 2, 2), t);
    end;
  end
  else
  begin
    val(copy(S, 1, 2), ng);
    val(copy(S, 3, 2), t);
  end;
  if (t<1) or (t>12) or (ng< 1) then
  begin
    writeln('No');
    exit;
  end;

  if (t=2) then
  begin
    if (((n mod 4=0) and (n mod 100<>0)) or (n mod 400=0)) then
      if ngay > 29 then
      begin
        writeln('No');
        exit;
      end
    else if ng>28 then
    begin
      writeln('No');
      exit;
    end;
  end
  else if ((t in [4, 6, 9, 11]) and (ng> 30)) or (ng> 31) then
  begin
    writeln('No');
    exit;
  end;

  writeln(ng, '/', t, '/', n);
end.