Заполнить массив остатками от деления натуральных чисел из отрезка [100; 110] на 19 и вывести на экран все элементы, по порядку до кратного трем.

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.