Напишите программу которая вычисляет сумму квадратов первых…

program gg; var i,n,k,sum: integer; a: array of integer[1… n]; beginn: =10; sum: =0; readln (a[i]); for i: =1 to n dok: =a[i]*a[i]; sum: =sum+k; writeln ('summa=',sum); end.