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.