tinh tổng các số chính phương trên đoạn từ 1 đến n

uses crt;
var n, sum, i:longint;

function square(n: longint): boolean;
begin
    exit(sqrt(n) = trunc(sqrt(n)));
end;

begin
clrscr;
    readln(n);
    for i:=4 to n do
        if square(i) then
            inc(sum, i); 
    writeln(sum);
readln;
end.

var t,i,n: integer;
function cp(x: integer): boolean;
begin
cp:=false;
if x<0 then exit;
if x=sqr(trunc(sqrt(x))) then cp:=true;
end;
begin
readln(n);
t:=0;
for i:=1 to n do
if cp(i) then t:=t+i;
write(t);
readln
end.