Дано натуральное число…

Program chisla; Uses Crt; var i,n,s: longint; begin clrscr; write ('Введите n: '); readln (n); s: =0; for i: =1 to n do if (i mod 2) <>0 then s: =s+i; writeln ('Сумма всех нчетных чисел от 1 до n равна: ',s) readkey; end.