Задачка по pascal.По n2 вычислить сумму 12+23+...+(n-1)n. Ответ вывести в виде

var n,s: integer;

begin

write ('n = ');

readln (n);

for var i :=1 to n-1 do

begin

s:=s+i*(i+1);

write(i,'*',i+1);

if i lt;gt; n-1 then write(' + ')

end;

writeln(' = ',s);

end.

var

   n, r : integer;

begin

   while n lt; 2 do begin

       write('введите n = ');

       readln(n);

       if n lt; 2 then writeln('n должно быть больше или равно 2');

   end;

   for var i :=2 to n do begin

       r += (i-1)*i;

       write(IntToStr(i-1)+'*'+i.ToString);

       if i lt; n then write('+');

   end;

   writeln('='+r.ToString);

end.

тестированно в PascalABC.Net