Студэнt Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to 6 do
 begin
 if n mod 2 = 1 then begin k:=i; break; end;
 n:=n div 10;
 end;
if k=0
 then writeln('В числе нет нечётных цифр')
 else writeln('k = ',k);
end.

Пример:
n = 123456
k = 2

petyaGavrikov

Verified answer

//PascalABC.Net 3.2
begin
var n:=readstring ('Ввод числа: ')+' ';
var i:=0;
for i:=1 to length(n) do if n[i] in ['1', '3', '5', '7', '9'] then break;
if i=length(n) then write ('Нет нечетной цифры') else write(i);
end.