Фрагмент программы

for i:= 1 to n do begin

y := x mod 10;

x := x div 10;

end;

вычислит при  х=9631 значение у, равное цифре: