tính tổng A=1+4+9+…n^2(với n được nhập từ bàn phím)

Program     tinhtong;

Uses         Crt; 

Var          i,d: integer;

Begin

Clrscr;

Write (‘ Nhập số n: ‘); readln(n);

d:=0;

for i:=1 to n do

d:=d+1;

Write (‘ Kết quả là:= ‘);

readln;

End.