\(\sqrt{ x + 24} + \sqrt{ x - 16} = 10\)

var a,b: integer;
begin
writeln('nhap gia tri cho a va b: '); readln(a,b);
if a>=b then writeln('a-b= ',a-b)
      else writeln('phep tinh khong thuc hien duoc');
end.

var a,b: integer;
begin
writeln('nhap a= '); readln(a);
writeln('nhap b= '); readln(b);
writeln('(a+b)*(a-b) = ', (a+b)*(a-b));
end.

var BMI: real;
begin
writeln('nhap chi so BMI: ');readln(BMI);
if (16<BMI) and (BMI<18.5) then writeln('Bạn bị thiếu cân');
if (18.5<BMI)and (BMI<25) then writeln('Bạn đủ cân');
if BMI>25 then writeln('Bạn đang thừa cân');
end.

var BMI: real;
begin
writeln('nhap chi so BMI: ');readln(BMI);
if (16<BMI) and (BMI<18.5) then writeln('Bạn bị thiếu cân');
if (18.5<BMI)and (BMI<25) then writeln('Bạn đủ cân');
if BMI>25 then writeln('Bạn đang thừa cân');
end.

 Var a,b :integer;     (bỏ dấu =)
           Const c =3;     (bỏ dấu :)
           Begin
              a :=200;      (thêm ;)
              b :=a/c;       
              write(b);
              readln;       (thêm ';' cơ mà read cái j)
           end.                 (thêm '.')

Var a,b:integer;
           Const c =3;
           Begin
              a :=200;
              b :=a/c;
              write(b);
              readln; (ủa readln cái j)
           end.

1.
1) đúng zòi á
2) dư dấu ':', cú pháp: const tên hằng = giá trị;
3) tách ra 2 lệnh=> dấu phẩy thành ';'
4) đúng r
2.
1) Biến ko đc đặt tên trùng từ khóa=> begin, start sai
2) bỏ hết dấu 2 chấm ':' đi là đúng
3) ko sai
4) thêm hai dấu ' ở giá trị xâu của hằng
=> 'Tin học'

1) Gán biến x giá trị là 9
2) Gán biến x giá trị bằng của x hiện tại thêm 1 đơn vị
3) In ra màn hình từ "tong" =)))
4) Nhập giá trị biến của a từ bàn phím