Tugas Pascal - Menghitung Berat Badan Ideal

program hitung_berat_badan_ideal;
uses wincrt;
var
tb : integer;
bb_id, x, y : real;
begin
write('Masukkan tinggi badan: ');
readln(tb);
writeln('');
x := tb - 100;
y := x * 10 / 100;
bb_id := x - y;
writeln('Bera badan ideal adalah ',bb_id);
end.