Составить программу для нахождения суммы всех нечетных целых чисел от 11 до 83

Var i,n: integer;Beginn:=0;for i:= 11 to 83 doif i mod 2=0 then n:=nelse begin n:=n+i;WriteLn('i=', i);end;Write ('sum=',n);end.