дан одномерный массив из 15 элементов, заполняется случайным образом вывести все элементы меньше некоторого a
Язык Паскаль желательно побыстрее

var i, a: integer;         x: array[1..15] of integer;begin      write('Введите a: '); readln(a);      write('Массив: ');      for i := 1 to 15 do begin             x[i] := random(20);            write(x[i], ' ');      end;      write(#10, 'Элементы < a: ');      for i := 1 to 15 do     if(x[i] < a) then write(x[i], ' ');end.