Program bt; 
Var     n,s: real;
Begin
        clrscr;
        write('nhap n = ');
        readln(n);
    for i := 1 to n - 1 do 
        if (i mod 2 <> 0) then s := s + i;
    writeln('Tong cac so le nho hon ',n,' la: ',s);
    readln
End.

Uses    crt;
Var     n,i,s: Longint;
begin
    repeat
        clrscr;
        write('n = ');
        readln(n);
    until (n > 0);
    for i := 1 to n-1 do 
        if (i mod 2 <> 0) then s:=s+i;
    writeln('Tong cac so le nho hon ',n,' la: ',s);
    readln;
end.