$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THẾ NHƯ SAU:

program baitap;
uses crt;
var w,h,BMI: real;
begin
         clrscr;
         writeln('Hay nhap can nang cua ban: '); readln(w);
         writeln('Hay nhap chieu cao cua ban: '); readln(h);
         BMI:=w/(h*h);
         if (BMI>=25) then writeln('Ban map roi do nhe!');
         if (BMI>=18,5) and (BMI<25) then writeln('Ban phat trien binh thuong');
         readln;
end.

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/(h*h);

if (bmi >= 25) then writeln('Ban map roi do nhe');

if (bmi >=18.5) and (bmi < 25) then writeln('Ban phat trien binh thuong');

readln

end.