const
  n = 100;
var
  a1, a2: array[1..n] of integer;
  i, k: integer;
begin
  k := 1;
  randomize();
  for i := 1 to n do
  begin
    a1[i] := random(1000) - 500;
    if a1[i] mod 10 = 0 then
    begin
      a2[k] := a1[i];
      writeln(a2[k]);
      k := k + 1;
    end;
  end;
end.