program deretpangkat;
uses crt;

var
akhir, hasil : real;
n : integer;

begin
clrscr;
write('masukan nilai batas akhir: ');readln(akhir);
writeln;

n:=1;
hasil:=0;

while (n * n) < akhir do
begin
write(n * n, '+');
hasil:=hasil + (n * n);
n:=n+1;
end;

hasil:=hasil + akhir;
write(akhir:0:0,'=',hasil:0:0);
readln;
end.
ane nih anak SMA yg klo kuliah ntar nglanjut ke jur teknik informatika,trus ane baca buku pemprograman nemu deh kode begini,ane masih belum paham ama penjelasan dibuku
kata temen ane untuk ngehitung jumlah dari deret bilangan 1+4+9+16+...+N,batas akhirnya inputan dari piranti masukan,tolong gan jelasin ke ane secara rinci dong agan' agn yg udah jago