решение:
var x,n:integer;
begin
n:=0;
for x:=11 to 99 do
if odd(x) then inc(n);
writeln(n);
readln;
end.
раскинув мозгами
begin writeln((99-10+1) div 2); readln; end.
а так как число двузначных нечетных всегда постоянно, то самое правильное решение
begin writeln(45); readln; end.