program berat badan ideal

program berat_badan_ideal;
uses crt ;
var tb,tt:integer;
ts,bb : real;
begin
clrscr;
write ('masukkan tinggi badan anda dalam cm:'); read(tb);
tt := (tb-100);
ts := (tt*0.1);
bb := tt-ts;
write ('Berat badan ideal anda =',bb:0:0,'kg');
readkey;
end.