Program zadanie;
var i, j: integer;
    A: array[0..10] of integer;
begin 
   i := 0;
    for j := 100 to 110 do
    begin
      A[i] := j mod 19;
      i := i + 1;
    end;
    
  for i := 0 to 10 do
    if (A[i] mod 3 = 0) then
      break
    else
      writeln('A[', i,'] = ', A[i]);
end.