* Chú ý :

+ nếu công thức tính BMI = $\frac{W}{H^2}$ thì BMI := w/(h*h)

+ nếu công thức tính BMI = $\frac{W}{H.2}$ thì BMI := w/(2*h)

=> Bạn xem đề thay vào chỗ mình in đậm nha 

* Xác định bài toán :
Input : w ( cân nặng ), h (chiều cao )
Output : chỉ số BMI
* Viết chương trình :
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/(2*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 map beo');
readln;
end.