Найти сумму чисел нечетных от 50 до 100 — Pascal(Паскаль)

uses crt;
var
i,s:integer;
begin
s:=0;
for i:=50 to 100 do
if i mod 2 <> 0 then s:=s+i;
writeln(s);
readln;
end.