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