Написать программу, которая переводит мм в дюйм, путем деления.(в одном дюйме 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 дюйма(ов)