программа для определения цифр числа в диапазоне от 2 до 7.

[Pexikk]

здравствуйте, нужно написать программу которая проверяет все цифры числа в диапазоне от 2 до 7. если все цифры в этом диапазоне, то вывести True, иначе False. код для этой программы я написал, но работает не всегда. Не понимаю что надо исправить. Пожалуйста помогите. Вместо readinteger можете вставить любое число, чтобы проверить на работоспособность. код сделать на паскале

var N := ReadInteger;
var sum := 0;
var a := 1;
loop n do
begin
sum += a*a;
a += 1;
end;
Print(sum);

[BDA]

А как связана сумма квадратов чисел от 1 до N с принадлежностью всех цифр числа диапазону?

[Cuprum5]

Var это специальный раздел программы(подпрограммы) где описываются все переменные, а не так каждый раз var писать.
Разве loop? Почитайте цикл For.

[BDA]

Cuprum5, это всё фишки PascalABC.NET (Оператор описания переменной, Оператор цикла loop).