Program Menghitung Berat Badan Ideal (BMI) dalam Pascal

Program Hitung_BMI;
Uses wincrt;
Var
t,b,BMI:real;
p:string;
Begin
     Write('Masukkan tinggi badan anda (m): ');
     Readln(t);
     Write('Masukkan berat badan anda (kg): ');
     Readln(b);
     BMI:=b/sqr(t);
     If BMI>=25 then
     begin
     p:='terkategori gemuk';
     end
     else
     begin
     p:='tidak mengalami obesitas';
     end;
     Write('Anda ',p);
     Readln;
End.