Program Pascal Menampilkan Berat Ideal

Nahhh ini adalah salah satu program pascal untuk Menampilkan Berat Ideal dari tinggi badan yang diinputkan

1. Programnya

Program MenampilkanBeratIdeal;
uses crt;
var
TB,BI : real;
begin
clrscr;
Writeln('Program Menampilkan Berat Ideal');
Write('Input Tinggi Badan :');readln(TB);

BI :=(TB-100)*0.9;

Writeln('Berat Ideal(KG) :',BI:0:0);
readln;
end.