#include<bits/stdc++.h>
using namespace std;
int a[101],c[101];
int main()
{char a1[101],c1[101];
int lena,i,x=0,lenc,b;
gets(a1);
b=13;
lena=strlen(a1);
for(i=0;i<=lena-1;i++)
a[i+1]=a1[i]-48;
for(i=1;i<=lena;i++)
{
c[i]=(x*10+a[i])/b;
x=(x*10+a[i])%b;
}
lenc=1;
while(c[lenc]==0&&lenc<lena)
lenc++;
for(i=lenc;i<=lena;i++)
cout<<c[i];
cout<<endl;
cout<<x;
return 0;
}
