program konfersi cm ke m

program ukuran;
uses crt;
var
     cm, hasil:real;
function hitung_meter(a:real):real;
begin
     hitung_meter :=a/100;
end;
{programutama}
begin
     clrscr;
     write  ('Masukkan cm  =  ');readln(cm);
     hasil:=hitung_meter(cm);
     writeln('Hasilnya     =  ',hasil:0:2);
     readln;
end.