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

Среда PascalABC.NET
#1

здравствуйте, нужно написать программу которая проверяет все цифры числа в диапазоне от 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);

#2

Вы явно не ту программу скинули…

Кроме того, это огрызок (его нельзя выполнить как есть, надо как минимум ## добавить в начало)

И выделяйте код как принято в markdown: Extended Syntax | Markdown Guide