Модуль это станет число без минусов. Тогда:
В числителе х-у а в знаменателе 1+ху.
1)
program chik;
var a:array[1..100]of integer;
i,s:integer;
begin
for i:=1 to 11 do
begin
read(a[i]);
end;
s:=0;
for i:=1 to 11 do
begin
if(a[i] mod 5=0)then s:=s+a[i];
end;
write(s);
end.
2)
program chik2;
var a:array[1..100]of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 11 do
begin
read(a[i]);
end;
s:=0;
for i:=1 to 11 do
begin
if(a[i] mod 2=1)then s:=s+1];
end;
write(s);
end.
3)
program chik3;
var a:array[1..1000]of integer;
i:integer;
begin
for i:=1 to 9 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
if(a[i] mod 2=0)then write(a[i],' ');
end;
end.
Все, кроме коммерческого.
Свободное ПО не накладывает никаких ограничений на использование, и доступно в виде исходных кодов, бесплатным ПО можно свободно пользоваться неограниченное время, условно-бесплатное можно скачать и пользоваться, но либо для полной функциональности, либо для продления срока работы программы требуется заплатить деньги. Коммерческое ПО можно скачать и установить, только предварительно заплатив деньги.
1) Вычисляет сумму цифр любого 4-значного числа
2) 0 2 4 9 12 15