Program Ukuran Meter

program meter;
uses wincrt;
var a,b,c:real;
begin
write('masukkan dalam milimeter= ');readln(a);
b:=a/10;
c:=a/1000;
write(b:5:2,' centimeter');
write(c:5:2,' meter');
end.