Дан массив целых чисел. выяснить: 1) является ли s-й элемент массива положительным числом; 2) является ли k-й элемент массива чётным числом; 3) какой элемент массива больше k-й или s-й. паскаль для лазаруса.

На 1 пункт: program mueta; uses crt; const n=(любому числу, например 3); var k: array[1..n]of integer; s: array[1..n]of integer; begin clrscr; for i: =1 to n do begin writeln('введите эл-ты массива s[i]='); readln(s[i]); end; for i: =1 to n do begin if s[i]> 0 then  writeln('s[i] положительное число', s[i]); end. 2)на второй тоже самое только нужно заменить массив на(k)  условие нужно поменять на s[i]mod 2=0