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

Спасибо большое!

Пожалуйста. Замечу, что для "Спасибо" тут рядом есть специальная кнопочка.

var  i,a,s:integer;begin  Write('Введите целое число, не превыщающее 9; ');  Read(a);  if a>9 then Writeln('Вы нарушили условие')  else begin    s:=0;    for i:=a to 10 do s:=s+i*i;    Writeln('Искомая сумма равна ',s)    endend.