Задачи: массивы! Опции

[Nox]

Програмисты пожалусто помогите решыть такие задания:
1.Ввести два вешественых числа a и b. Найти остаток от деления a и b. Определить принадлежность остатка интервалу [0…4].
2.Даны 10 вешественых чисел. Определить набольшее из отрицательных чисел, округлить его к ближайшему целому.
3.Найти суму положительных элементов двух диогоналий массива. Определить является ли полученное округлое число простым.
P.S Пожалуста кто знает ответте!!! ;)

[trminator]

program dva;
<...>
if (q>0) or (q<4) then writeln('Принадлежит отрезку');
<...>
end.

if (q>0) and (q<4)