составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода на экран элементов массива кратные 3.

program p1;var i:integer;    a:array[1..10] of integer;beginfor i:=1 to 10 dobegin    writeln('Введите ',i,' число: ');    read(a[i]);end;for i:=1 to 10 do   if (a[i] mod 3)=0 then writeln('Число: ',a[i]);end.