Написать программу в Pascal даны целые числа а1...аn. Если в данной последовательности ни одно четное число не расположено после нечетного.то получить все отрицательные члены последовательности иначе-положительное.

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i := 1 to n do begin write('a', i, '='); readln(a[i]); end; f := 0; writeln; for i := 1 to n - 1 do if (a[i] mod 2 <> 0) and (a[i + 1] mod 2 = 0) then f := 1; if f = 0 then begin for i := 1 to n do if a[i] < 0 then write(a[i]:4); end else for i := 1 to n do if a[i] > 0 then write(a[i]:4);end.