Tính tổng 1 1+2 1 3 1/n trong pascal

Tính tổng S biết S[n] = 1^2 + 2^2 +3^2 +4^2+… + k^2 sao cho tất cả các giá trị từ 1^2 đến k^2 phải nhỏ hơn hoặc bằng n

1. viết chương trình cho người dùng nhập n . In ra tổng của S

2.trình bày ra giấy tính độ phức tạp của chương trình vừa thực hiện 

Mn làm giúp mình với ạ . Càng sớm càng tốt :[[

var i, n : integer; S : real;

writeln['Nhap so thu n: ']; readln[n];

writeln['Tong la: ',S:2:3];

baonhi09 đã chọn câu trả lời này

chơi thế thì lúc nào chả hạng nhất

write['Nhập số n'];readln[n];

For t:=1 to n do s:=s+1/t;

write['Nhập số n'];readln[n];

write['Nhập số n'];readln[n];

For t:=1 to n do s:=s+1/t;

write['Nhập số n'];readln[n];

write['Nhập số n'];readln[n];

For t:=1 to n do s:=s+1/t;

write['Nhập số n'];readln[n];

write['Nhập số n'];readln[n];

For t:=1 to n do s:=s+1/t;

write['Nhập số n'];readln[n];

write['Nhập số n'];readln[n];

For t:=1 to n do s:=s+1/t;

write['Nhập số n'];readln[n];

write['Nhập số n'];readln[n];

For t:=1 to n do s:=s+1/t;

write['Nhập số n'];readln[n];

write['Nhập số n'];readln[n];

For t:=1 to n do s:=s+1/t;

write['Nhập số n'];readln[n];

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln['Nhap so thu n: ']; readln[n];

S:=0; i:=1;

while i