Заполнить массив остатками от деления натуральных чисел из отрезка [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.