Program prog;
uses crt;

var a: array [1..30] of integer;
    i: integer;

begin
clrscr;

for  i:=1 to 30 do
     begin
          write(a[,i,] = );
     readln(a[i]);
     end;

for  i:=1 to 30 do
     begin
     if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) lt; 10 then
     write (a[i],   );
     end;
end.