Дан массив целых чисел. Узнать:1) является ли s-й элемент массива положительным

в 3-ем пункте какая то муета

На 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]gt;0
then 
writeln('s[i] положительное число', s[i]);
ENd.
2)На 2-ой тоже самое только необходимо поменять массив на(k) условие необходимо поменять на s[i]mod 2=0