Работа с циклами(Pascal)

[adrenalin142]

Здравствуйте, помогите пожалуйста разобраться с задачей.

Выведите заданный разряд целого числа. Целое число и номер разряда вводятся пользователем. Разряды нумеруйте справа налево, начиная с единицы. Для решения используйте операции mod, div. Решить задачу, используя цикл с предусловием.

[Serge_Bliznykov]

так устроит?

begin
  ReadLn(N);
  Readln(razrayd);
  while (N>0) and (razrayd>0)  do begin
    if razryad = 1 then WriteLn(' found razrayd: ', N mod 10);
    Dec(razryad);
    N := N div 10;
  end;
  if razrayd>0 then WriteLn('Not found razrayd at number');
end.

[adrenalin142]

Сообщение от Serge_Bliznykov

так устроит?

begin
  ReadLn(N);
  Readln(razrayd);
  while (N>0) and (razrayd>0)  do begin
    if razryad = 1 then WriteLn(' found razrayd: ', N mod 10);
    Dec(razryad);
    N := N div 10;
  end;
  if razrayd>0 then WriteLn('Not found razrayd at number');
end.

Да, остальное сам допишу, большое спасибо, выручили прям)