uses crt, dos;

function c2(i:integer):string;
var s:string;
begin
  str(i,s);
  if length(s)>2 then s:=copy(s,length(s)-1,2)
    else if length(s)=1 then s:='0'+s;
  c2:=s;
end;

function getspdate(i:integer):string;
var x,y,m,d:longint;
begin
  x:=i; if x<0 then x:=x+65536;
  y:=x div 512; x:=x-512*y;
  m:=x div 32; x:=x-32*m;
  d:=x;
  getspdate:=c2(m)+'/'+c2(d)+'/'+c2(y);
end;

var
  x:integer;

begin
  write('Enter SPDATE: ');
  readln(x);
  writeln('SPDATE (',x,') = '+getspdate(x));
end.