Даны натуральные числа M и N. Вывести старшую цифру дробной части и младшую цифру целой части числа M/N — Pascal(Паскаль)

uses crt;
type natur=1..30000;
var m,n,c,d:natur;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа до 30000');
readln(m,n);
until(m>0)and(m<=30000)and(n>0)and(n<=30000);
c:=trunc(m/n)mod 10;
writeln('Младшая цифра целой части числа ',m/n:0:2,' = ',c);
d:=trunc(m/n*10)mod 10;
write('Старшая цифра дробной части  = ',d);
readln
end.