Положительные четные числа

[koshak98]

Дан массив А(20). Сформировать новый массив с положительных четных чисел. //// нужна программа - вводим 20 любых чисел,и затем чтобы программа выводила положительные четные числа. Заранее спасибо.

[newerow1989]

var a:array[1..20] of integer;
    i:integer;
begin
   Randomize;
   For i:=1 to 20 do
   begin
      a[i]:=-50+Random(100);
      Write(a[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 20 do
      If (a[i]>0) and (a[i] mod 2=0) then
         Write(a[i]:2,'  ');
   Writeln;
   Readln;
end.

[koshak98]

спасибо)

[newerow1989]