uses crt;

var w, h, bmi : real;

begin

clrscr;

write('nhap chieu cao cua co the (met) :');readln(h);

write('nhap can nang cua co the (kg)  :');readln(w);

bmi := w/(h*h);

writeln('chi so BMI la :', bmi:8:2);

if bmi < 18.5 then writeln('la nguoi gay om');

if (bmi >=18.5) and (bmi < 25) then writeln('la nguoi binh thuong');

if (bmi >= 25) then writeln('la nguoi  beo');

readln

end.

Program baitap;

Uses crt;

Var BMI,W,H:real;

Begin

Clrscr;

Write('Hay nhap can nang (don vi:kg):');readln(W);

write('Hay nhap chieu cao (don vi:m):');readln(H);

BMI:=W/(H*H);

Writeln('BMI=',BMI);

If BMI<18.5 then writeln('Ban la nguoi gay');

If (BMI<25 and BMI >=18.5) then writeln('Ban la nguoi binh thuong');

If BMI>=25 then writeln('Ban la nguoi beo');

Readln

End.