Найдите сумму квадратов всех целых чисел от а до 10. Значение а вводится с клавиатуры. Предусмотрите проверку корректности ввода (а меньше 10). Написать программу в Pascal

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 begin   var a:=ReadInteger('Введите целое число, не превышающее 9:');   if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)   else Writeln('Введенное значение больше 9') end. Тестовое решение Введите целое число, не превышающее 9: -7 S2=525