помогите пожалуйстаааа !!!!!!найдите сумму квадратов всех целых чисел от а до 10.Значение...

Question

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

Answer 1

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