Дан массив целых чисел. выяснить: 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