Помогите пожалуйста срочно. Pascal 1. Проверить, что в массиве все элементы положительны. 2. Проверить, что все элементы массива равны друг другу. 3. Проверить, есть ли в массиве элемент, равный заданному значению

var   a : array [1..100] of real;   n, i : integer; begin   read (n);   for i := 1 to n do read (a[i]);   for i := 1 to n do     if a[i] <= 0 then     begin       writeln ('NO');       readln;       Halt;     end;   writeln ('YES');   readln; end.     var   a : array [1..100] of real;   n, i : integer;   o : real; begin   read (n);   for i := 1 to n do read (a[i]);   o := a[1];   for i := 2 to n do     if a[i] <> o then     begin       writeln ('NO');       readln;       Halt;     end;   writeln ('YES');   readln; end.     var   a : array [1..100] of real;   n, i : integer;   x : real; begin   read (n);   for i := 1 to n do read (a[i]);   read (x);   for i := 1 to n do     if a[i] = x then     begin       writeln ('YES');       readln;       Halt;     end;   writeln ('NO');   readln; end.