СРОЧНО!!!ОЧЕНЬ НАДО!!!ПОЖАЛУЙСТА!!! Найти четвёртую от конца цифру в записи произвольного положительного целого числа х, значение которого вводится с клавиатуры (например, если дано х=25 6985, то получить у=6)
Var n,k:integer; begin write('n=');readln(n); k:=1; while (k<4)and(n>9) do begin n:=n div 10; inc(k); end; if k=4 then writeln('4-я цифра = ',n mod 10) else writeln('В числе меньше 4 цифр'); end.