var st,name:string;
    i,j,sum:integer;
begin
readln(st);
i:=1;
while st[i]<>' 'do inc(i);
name:=copy(st,1,i-1);
{name是姓名}
while st[i]=' 'do inc(i);
sum:=0;
for j:=i to length(st) do sum:=sum*10+ord(st[i])-ord('0');
{sum是数值}
end.