Ввести массив из 5 целых чисел распечатать все его положительные элементы

Var a:array[1..9] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 9 do
begin
a[i]:=i*i;
p:=p*a[i]
end;
for i:=1 to 9 do
write(a[i]:10);
writeln('p=', p:5:2)
end.

program hhh;
Uses crt;
Const n=5;
 Var x:array [1..n] of integer;
      i,n:integer;
begin
clrscr;
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Writeln (' Polozhitelbnye elementy massiva ');
For i:=1 to n do
   if x[i]>0 then write (x[i]:3);
Readln
end.

Var a:array[1..6] of integer;
i,j:integer;
begin
j:=8;
for i:=1 to 6 do
begin
a[i]:=j;
j:=j+2
end;
for i:=1 to 6 do
write(a[i]:10);
writeln
end.

const
  max=6;
var
  a:array [1..max] of integer;
  po,i:integer;
  fl:boolean;
begin
  fl:=true;
  po:=0;
  {çàäàåì ìàññèâ}
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    if (a[i]<0) and fl then
    begin
      po:=a[i];
      fl:=false
    end;
    write(a[i],' ')
  end;
  writeln;
  if po<>0 then
    writeln('Ïåðâûé îòðèöàòåëüíûé: ',po)
  else
    writeln('Ìàññèâ ïîëîæèòåëåí...')
end.

const
  max=5;
var
  a:array [1..max] of integer;
  i:integer;
begin
  {задаем массив}
  writeln('Исходный массив:');
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln;
  {выводим}
  writeln('Пожительные элементы:');
  for i:=1 to max do
  begin
    if a[i]>0 then
    write(a[i],' ')
  end;
  writeln;
end.

const
  max=20;
var
  a:array [1..max] of integer;
  temp,i,j:integer;
begin
  {çàäàåì ìàññèâ}
  writeln('Ðåçóëüòàòû:');
  for i:=1 to max do
  begin
    a[i]:=random(88);
    write(a[i],' ')
  end;
  writeln;
  {ñîðòèðóåì ðåçóëüòàòû}
  for i:=1 to max do
    for j:=i to max do
      if a[j]<a[i] then
      begin
        temp:=a[i];
        a[i]:=a[j];
        a[j]:=temp
      end;
  {âûâîäèì}
  writeln('Ëó÷øèå 7:');
  for i:=max downto max-6 do
  begin
    if a[i]>0 then
    write(a[i],' ')
  end;
  writeln;
end.

const
  max=10;
var
  a:array [1..max] of integer;
  temp,i,j:integer;
  fl:boolean;
begin
  fl:=true;
  {çàäàåì ìàññèâ}
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to max do
  begin
    a[i]:=1-random(2);
    write(a[i],' ')
  end;
  writeln;
  {âûâîäèì}
  writeln('Ïîëó÷åííûé ìàññèâ:');
  for i:=1 to max do
  begin
    if a[i]=1 then
      a[i]:=0
    else
      a[i]:=1;
    write(a[i],' ')
  end;
  writeln;
end.