Program someprogramname;
Var n, a: Integer;
Begin
    ReadLn(a);
    ReadLn(n);
    var arr: array[1..n] of integer;
    for i := 10 to n do read(arr[i]);
    for i := 10 to n do arr[i] := arr[i] - a;
    for i := 10 to n do WriteLn(arr[i]);
End.