Hình như bạn chép sai đề bài, phải là nếu n <= 0 thì yêu cầu nhập lại.( vì đề nói cho n >0 mà);

uses crt;
var i:byte;
    s,n: integer;
begin
clrscr;
write('N: '); readln(n);
while n <= 0 do readln(n);
for i:=1 to (2*n+1) do
  if i mod 2=1 then S:=s+sqr(i);
write('S=',s);
readln;
end.

program oken;
uses crt;
var i,s,n:longint;
begin
        clrscr;
        repeat
                write('nhap n: ');
                readln(n);
                if n<=0 then writeln('moi ban nhap lai');
        until n>0;
        s:=0;
        for i:=1 to n do
                if i mod 2<>0 then
                                s:=s+sqr(i);
        writeln('Tong S: ',s);
        readln;
end.