Tính tổng S

(Olympic Bắc Giang 2011 - Bảng B).Viết chương trình nhập số tự nhiên N (Với N<100), Tính tổng S theo yêu cầu sau: Nếu N là số lẻ thì S là tổng các số nguyên tố từ 2 tới N. Nếu N là số chẵn thì S là tổng bình phương các số lẻ từ 1 tới N.
                                                                 Giải
Var i,n:integer; s:longint;
Function nt(a:integer):boolean;
   Var b,dem:integer;
   BEGIN
       dem:=0;
       For b:=1 to a do
           if a mod b = 0 then dem:=dem+1;
               if dem = 2 then nt:=true
               else nt:=false;
   End;
BEGIN
   Write('Nhap N: '); Readln(n);
   If ((n Mod 2) <> 0) Then
       for i:= 2 to n do
           if nt(i) then s:=s+i;
   If n Mod 2 = 0 Then
       for i:=1 to n do
           if (i mod 2) <> 0 then s:=s+i*i;
   Writeln('Tong S=',s);
   readln;
END.