найти сумму положительных нечетных чисел,меньших n. по паскалю

//PascalABC.NET 3.3
begin 
Range(1, ReadInteger('n->') - 1, 2).Sum.Println;
end.

// Pascal
var n,i,s:integer;
begin
Write('n->');
readln(n);
i:=1;
while i<n do begin s:=s+i; inc(i,2); end;
Writeln(s);
end.