KONVERSI METER KE CENTI

uses wincrt;
var
m:integer;
cm,mm:longint;
begin
write('Masukkan bilangan dalam bentuk m: ');readln(m);
cm:=100*m;
mm:=1000*m;
writeln(m,'m= ',cm,'cm');
writeln(m,'m= ',mm,'mm');
end.