uses crt;
var
tinggi : integer;
bi : real;
begin
clrscr;
write('masukkan tinggi:');readln(tinggi);
bi:=(tinggi-100)-((tinggi-100)*10/100);
writeln('berat badan ideal adalah= ',bi:0:2);
readln;
end.