Помогите составить программу срочно

const
n = 5;
var
a: array[1..n] of integer; i, c: integer;
begin
c := 0;
for i:=1 to n do
begin
readln(a[i]);
if mod(a[i])<>o then c:=c+1
end;
writeln(c);
end.
ему мод не нравится в условии=(
что делать?

ии содержащейся в 32 томах; равен ?

дано натуральное число обозначающее сумму в копейках,перевести эту сумму в рубли и копейки.

c:

Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"

2. Составить программу для упорядоченное двух элементов по убыванию.

вывести список книг, изданных после 2003 года.



2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.

Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".