Составить программу паскаль для вычисления суммы нечетных чисел от 1 до заданного пользователем числа n. )

 Program Summa;  

var s,i,n:integer;        

begin 

write('Введите n:' );

readln(n);

s:=0;

for i:=1 to n do

  if (i mod 2)<>0 then s:=s+i;

writeln;

writeln('Сумма нечётных чисел равна:',s);

readln; {для паузы}

end.