Вывести 3 цифры из дробной части вещественного числа - PascalABC.NET

Формулировка задачи:

Учитель с Информатики дал задачу. Без div и mod. Дано действительное число x. Через запятую вывести 3 первых числа дробной части. Допустим первую цифру я знаю как высчитать.

program zada4a;
var x,a:real;
begin
writeln ('Введите дробное число');
readln (x);
a:=trunc(frac(x)*10);
writeln (a);
end.

Остальные не знаю, помогите пожалуйста!

Решение задачи: «Вывести 3 цифры из дробной части вещественного числа»

Листинг программы

begin
  var x := frac(ReadlnReal('Число:'));
  for var i := 1 to 3 do begin
    write(trunc(x * 10),' ');
    x:=frac(x * 10);
  end;
end.

Объяснение кода листинга программы

В этом коде происходит следующее:

Переменная x инициализируется как дробная часть числа, которое считывается с помощью функции ReadlnReal. Значение переменной x представляет собой вещественное число.
Затем используется цикл for для выполнения трех итераций.
На каждой итерации выполняется: a. Вывод целой части числа, полученного путем умножения x на 10, с помощью функции write. b. Значение x обновляется, чтобы стать дробной частью числа, полученного путем умножения x на 10.
По завершении цикла for выполнение программы завершается.