Сумму квадратов всех целых чисел от а до 10.значение а вводится с клавиатуры.предусмотрите проверку корректности ввода (а< 10)

Var i,summ,a:integer;
begin
read(a);
for i:=a to 10 do 
summ:=summ+i*i;
write(summ);
end.