Помогите написать программу, которая переводит мм в дюйм, путем деления.(в одном дюйме 0.0394 мм)

1 мм = 0,0393701 дюйма!
1 дюйм = 25.4 мм

1)
var m,d:real;
begin
write(Введите длину (в мм): );
readln(m);
d:=m*0.0394;
writeln(m, мм = ,d:8:4, дюйма(ов));
end.

2)
var m,d:real;
begin
write(Введите длину (в мм): );
readln(m);
d:=m/25.4;
writeln(m, мм = ,d:8:4, дюйма(ов));
end.

Пример:
Введите длину (в мм): 5
5 мм =   0.1970 дюйма(ов)