Pascal нахождение суммы кубов всех целых чисел от 1 до n

var i,n,s: longint;

begin

readln(n);

s: =0;

for i: =1 to n do s: =s+i*i*i;

writeln('s=',s);

end.

3  учеников этого класса любят все три вида спорта

а необходимо

б достаточно

в необходимо

г достаточно

д необходимо и достаточно