Pascal вычислить сумму 1^4+2^4+...+N^4 (while, repeat until или For)

Question

Pascal
вычислить сумму 1^4+2^4+...+N^4 (while, repeat until или For)

Answer 1

Program al;
var n,i,s:integer;
begin
writeln('vvedite n =');
readln(n);
s:=0;
for i := 1 to n do
s:=s+sqr(i)*sqr(i);
writeln ('s=',s);
readln;
end.