program sksk;

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.

var
bmi:real;
w,h:integer;
begin
write('nhap vao chieu cao:');readln(h);
write('nhap vao can nang');readln(w);
bmi:=w mod (h*h);
if bmi <18,5 then write('nguoi gay')
else if (bmi<25) and (bmi>18,5) then write('nguoi binh thuong')
else if bmi>=25 then write('nguoi beo');
readln
end.