Найти сумму квадратов чисел от 1 до 10 программа free pascal

Program summakvadratov (input, output);
var I, a:integer;
begin
a:=0;
for I:=1 to 10 do
a:=a+sqr(I);
writeln (a);
end.