Найти сумму квадратов чисел от 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.