cоставьте  программу , которая находит сумму квадратов чисел  от 5 до 20: 52+62+72+82+...+202

Если ЭТО "52+62+72+82+...+202" означает "5^2+6^2+7^2+8^2+...+20^2", то
var
a,i:integer;
Begin
for i:=5 to 20 do
a:=a+i*i;
Writeln(a)
End.