Minh đang làm 1 con robot kiểm tra xem 1 người có bị thường cân hay không. Biết rằng, nếu BMI vượt quá 25 thì người đó bị thừa cân.BMI là chỉ số đánh giá sức khỏe của cơ thể, được tính bằng bình cân nặng chia chi bình phương của chiều cao; với cân nặng được tính theo đơn vị kg, chiều cao tính bằng đơn vị m và 2 giá trị này được nhập từ bàn phím.Em hãy giúp Minh hoàn thành chương trình cho con Robot.

uses crt;

var w, h, bmi : real;

begin

clrscr;

write('nhap chieu cao va can nang: '); readln(h, w);

bmi := w/sqr(h);

if bmi > 25 then write('thua can')

else write('khong thua can');

readln

end.

Program baitap;

Uses crt;

Var cn,cc,BMI:real;

Begin

Clrscr;

Write('Nhap can nang (tinh theo kg):');

Readln(cn);

Write('Nhap chieu cao (tinh theo m):');

Readln(cc);

BMI:=cn/(cc*cc);

If cn<=25 then writeln('Ban khong bi thua can')

                 Else writeln('Ban bi thua can');

Readln

End.