народ кто разбирается в Pascal хелп
 

Народ помогите плиз решить задачу
вот условие
N1
Вывести на экран все 5-ти значные числа сумма цифр которых делиться еа 2 без остатка.
N2
Даны два слова
Найти то у которого сумма кодов букв больше и вывести его на экран

может поможет
 

N1:
var i,j,sum : integer;

for i:=10000 to 99999 do begin
sum:=0;
for j:=1 to 5 do begin
sum:=sum+floor(i/10^j) mod 10;
end;
if (sum mod 2 = 0) then
print (i);
end;

// Сразу оговорюсь. Не программил на нем сто лет.
// За наличие функций не отвечаю. :) Floor - округление вниз до целого. Mod - остаток от деления (возможно это было оператором %)
// Проверить не мог и некогда.

Хммм... Второй цикл должен быть
for j:=0 to 4 do

Народ ошибку выкидывает error 76: Constant out of rage.

плиз хелп сижу щас на зачете мне таж самая задача попадась а она ошибку выдает ;[