Присвоить переменной Х значение цифры из дробной части положительного числа У — Pascal(Паскаль)

Например,
если У=56.345, то Х=3

var
  a, b: real;

begin
  write('Введите число ');
  readln(a);
  b := int(a * 10) - int(a) * 10;
  writeln(b);
  readkey;
end.

var
  a, b: real;

begin
  write('Введите число ');
  readln(a);
  b := frac(a);
  b := trunc(b * 10);
  write('Полученное число ', b:5:0);
  readkey;

End.