Turbo Pascal. Формирование и обработка одномерного массива

[мирЗвонка]

Составить алгоритм и написать программу формирования и обработки одномерного массива. Выводимый результат идентифицировать.

Задана последовательность X = (x1, x2, …, x10).
Сформировать из неё одномерный массив Y, состоящий из элементов массива Х, кратных 3. Если таковых не окажется, вывести фразу «Элементов, кратных 3, нет». Полученный массив напечатать в строчку.
X = {12.3, 7, 9.5, 27, 91.2, 9, 21.4, 111, 3.2, 51}.

[Chudo4258]

Сформировать из неё одномерный массив Y, состоящий из элементов массива Х, кратных 3.

X = {12.3, 7, 9.5, 27, 91.2, 9, 21.4, 111, 3.2, 51}

Понятие кратности числа определенно только на множестве целых чисел (или на любом его м
подмножестве).
Если вы придамали такой пример, тогда вы не учились в школе, а если препод дал такой пример, тогда его надо срочно увольнять.

program Project2;
var X,Y: array [1..10] of integer;
    i,j:integer;
begin
j:=0;
for i:=1 to 10 do
 begin
  write('X[',i,']=');
  readln(X[i]);
  if (X[i] mod 3=0) then
                      begin
                       inc(j);
                       Y[j]:=X[i];
                      end;
 end;
if j=0 then Writeln('Таких эл-тов нет')
       else
          for i:=1 to j do
           writeln('Y[',i,']=',Y[i]);
readln
end.

[мирЗвонка]

да,такой пример был в задании...я ничего не придумал.

Спасибо большое)