помогите написать программы для паскаля, по которой можно получить несколько младших цифр числа

Program z1;
var a,b:real;
begin
Read(a);
b:=random(10);
For i:=1 to 3 do
begin
a:=a-b;
write (a);
end;
end.