program arrd;uses crt;var i,a : integer; arr : array [1..15] of integer;begin randomize; writeln('Write a: '); read(a); writeln('-----------------------------'); for i:=1 to 15 do begin arr[i] := random(100); if arr[i] < a then writeln(arr[i]); end; writeln('-----------------------------'); readkey;end.