По данному натуральному 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.

//pascalabc.net 3.2 сборка 1318 var   libonachi: array of integer;   n,i,res: integer; procedure libonachicomputer(var vals: array of integer; var i: integer); begin   if i< =20 then     begin       vals[i]: =vals[i-1]+vals[i-2];       inc(i);       libonachicomputer(vals,i);     end; end; begin n: =21; i: =2; res: =0; setlength(libonachi,n); libonachi[0]: =1; libonachi[1]: =-1; libonachicomputer(libonachi,i); for i: =15 to 20 do res+=libonachi[i]; writeln(res); end. вывод: -6388

// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите строку: ').tolower;   var c: =readlnchar('введите искомую букву: ').tolower;   writeln('буква встречается ',s.where(a-> a=c).count,' раз(а)') end. пример введите строку: а роза упала на лапу азора введите искомую букву: а буква встречается 8 раз(а) // pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите фразу: ');   s.replace('ты','я').replace('ты','я').println end. пример введите фразу: тыков ест тыблоко яков ест яблоко // pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите строку: ');   var s1: =readlnstring('что найти? ');   var s2: =readlnstring('чем заменить? ');   s: =s.replace(s1,s2);   s.println; end. пример введите строку: мама, мама, что я буду делать, мама, мама, как я буду жить? что найти? мама чем заменить? папа папа, папа, что я буду делать, папа, папа, как я буду жить?