Program Berat Badan Ideal

program Berat badan ideal
uses crt;
var
     t, bd,bd2,hasil:real;
begin
   clrscr;
   write('Isikan tinggi badan: ');readln(t);
   bd:=(t-100);
   bd2:=(bd*0.1);
   hasil:=bd-bd2;
   writeln('berat badan ideal anda adalah: ',hasil:0:0);
   readln;
end.