Погите пожалуйста. Нужно написать задачи на языке Паскаль.
1. С клавиатуры заполнить целочисленный одномерный массив. вывести неотрицательные элементы массива.
2. дан одномерный массив целых чисел. Определить каких элементов больше, максимальных и минимальных
3. дан одномерный массив целых чисел. Подсчитать количество элементов, равных заданному массиву x. Число х вводится с клавиатуры

огромное спасибо!

1)var a: array [1..5] of integer;i,k:integer;BeginWriteln('Перечислите элементы массива: ');For i:=1 to 5 doread(a[i]);For i:=1 to 5 do If (a[i] > -1) then write(a[i]:2);End.2)var a: array [1..5] of integer;i,k1,k2,max,min:integer;Beginmin:=MaxInt;max:=-MaxInt;Writeln('Перечислите элементы массива: ');For i:=1 to 5 do beginread(a[i]);if (a[i] > max) then max:=a[i];if (a[i] < min) then min:=a[i];end;For i:=1 to 5 do beginIf (a[i] = max) then inc(k1);If (a[i] = min) then inc(k2);end;If (k1>k2) then writeln('Больше max элементов') else writeln('Больше min элементов');End.3)var a: array [1..5] of integer;i,k,x:integer;BeginWrite ('X = ');read(x);Writeln('Перечислите элементы массива: ');For i:=1 to 5 do begin     read(a[i]);if (a[i] = x ) then inc(k);end;  writeln('kol = ',k) ;end.