Câu 1:

A. Sai vì điều kiện ở đây phải là phép so sánh

B. Sai vì sai điều kiện không được có dấu ;

C. Sai vì trước dấu ; kết thúc câu lệnh không có dấu )

             câu lệnh bị lặp vô hạn lần

D. Thiếu câu lệnh ghép begin... end;

     Chưa gán giá trị ban đầu cho biến sum

E. Đúng

Câu 2:

program ct;

uses crt;

var a,b,c:integer;

begin clrscr;

   write('Nhap do dai hai canh ben: '); readln(a,b);

   write('Nhap do dai canh huyen: '); readln(c);

   if (a+b>c) and (a+c>b) and (b+c>a) then

     begin

        if c*c=a*a+b*b then write('Day la tam giac vuong')

                                  else write('Day ko la tam giac vuong');

     end;

   else write('Day ko la do dai ba canh tam giac');

readln;

end.

Học tốt!