with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
 use Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;

procedure main is
   N: Integer;
   R: Integer;
begin
   get(N);
   get(R);
   if (N > 10) then put(R);
   else put(R + (10 - N) * 100, 0);
   end if;
end main;