найти количество нечетных чисел от 1 до n

У кого-то есть паскаль . нет, ечли нет, то исправить там труда никакого не составит

компилятор подскажет :)

var s,n: integer;beginread(n);s:=0;for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;writeln(s);end.