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

Спасибо огромное за ответ. А эта программа будет работать на FreePascal?

Нет, не будет.

Версия Паскаля написана в первой строке программы. О FPS в вопросе не было сказано ни слова.

А не могли бы Вы написать эту же программу в FPS

Мог бы, конечно. Но, как я уже сказал, Вы не указали, что нужно писать в FPS, а теперь начинаете разговоры про него. Т.е. Вам все равно, что другие люди потратили из-за Вашей небрежности свое время, делая то, что Вам не нужно. Следовательно, Вы не цените чужой труд. А это плохо.

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