Program Jarak

program jarak;
uses wincrt;
var x,y:real;
procedure masukan_data;
begin
writeln;
write('Masukkan bilangan dalam kilometer : ');
readln(x);
end;
procedure hitung_jarak;
begin
y:=x*1000
end;
procedure tampilan_hasil;
begin
writeln('Maka bilangan tersebut dalam meter adalah : ',y:2:0);
end;
begin
masukan_data;
hitung_jarak;
tampilan_hasil;
end.