Program Can_nang;

Uses Crt;

Var W,h,BMI: Real;

Begin

Clrscr;

Writeln('Nhap can nang');Readln(W);

Writeln('Nhap chieu cao');Readln(h);

BMI:= W/h*h ;

Writeln(' Chi so khoi cua co the la', BMI:0:1);

If (BMI >=25) then Write(' Ban map roi do nhe');

If (18.5<=BMI) and (BMI<25) then Write(' Ban phat trien binh thuong') ;

If (BMI< 25) then Write(' Ban phat trien cham roi') ;

Readln;

end.

(có thắc mắc gì cứ bình luận nha)

 

uses crt;

var W,h,BMI:integer;

begin

write('nhap can nang:');readln(W);

write('nhap chieu cao:');readln(h);

BMI:=W/(h*h);

if BMI>=25 then writeln('Bn map r do nha') 

else if BMI>=18.5 then writeln('Bn phat trien bth')

else writeln('Bn phat trien cham r');

readln;

end.