program mass;
var
B: array [1..13] of integer;
begin
for var i := 1 to 13 do
readln(b[i]);
b[i] := b[i] - 71;
end;
write(b[i], ' ');
end.
