Заполнить массив случайными числами и вывести на экран,только те элементы массива,которые больше 5.

Var:
a : array[1..10] of integer;
i: integer;
begin

for i:=1 to 10 do begin
    a[i] := radom(10);
end;

for i:=1 to 10 do begin
    if a[i] > 5 then begin
        writeln(' ', a[i]);
    end;
end;

end.