sửa lỗi giùm em được ko ạ: program b7; uses crt; var s:real;n,i:longint; procedure tinh(var s:longint); begin for i:=1 to n do s:=s+(2*i) / (i*i); end; begin clrscr; write('nhap n=');readln(n); s:=0; tinh(s); write('s=',s); readln end.