По данному натуральному n вычислите сумму 12+22++n2. входные данные вводится единственное число n. выходные данные необходимо вывести вычисленную сумму. примеры входные данные 2 выходные данные 5

var  a,i,r: integer;
begin read(a);
 r:=0.;
 for i:=1 to a do
 r:=r+i*i; 
write(r);
 readln;
 readln 
end.