a[i] <= i

uses crt;
const n = 5;
var a:array[1..n] of integer;
begin
for i:=1 to n do
read(a[i]);
for i:integer:=1 to n do
if (a[i]<=i) then write(a[i],' ');
end.