Program hitung berat badan ideal Menggunakan Pascal

program hitung_berat_badan_ideal;

uses wincrt;

     var

     tb : integer;

     bb_id, x, y : real;

     const

          const1=100;

          const2=0.1;

begin

write('Masukkan tinggi badan anda: ');

readln(tb);

writeln(''); 

  x := tb - const1;

  y := x * const2;

  bb_id := x - y;

writeln('==================================================== ');

writeln('Berat badan ideal anda adalah ',round(bb_id),' kg');

writeln('===================================================== ');

readln;

end.