BT1: Var n,m: Integer;
              x,y: Extended;
        Begin
             m:= -5;
             n:= 4;
             x:= 6;
             y:= 11.5;
             write(x+y);
             readln(x+y);
        End.
=> Các lỗi mình có thể tìm thấy là:
-chưa khai báo biến m                                               
-kiểu dữ liệu Extended chứ không phải Extened                                            
-cuối dòng write(x+y) thiếu dấu ";"                                              
-cuối dòng End thiếu dấu "."
BT2: Var a,b,c:integer;
        Begin
            a:=102;
            write('b='); readln(b);<br />            c:= a-b;<br />            if a <= b then writeln('Xin chao!');
            writeln(c:8);
         End.
=> Các lỗi mình có thể tìm thấy là:
-kiểu dữ liệu Integer chứ không phải Interger                                               
- cuối dòng a:=102 thiếu dấu ";"                                               
-dòng lệnh readln(b); thay vì readln('b);                                             
-dấu so sánh 2 về phải là "<="                                                
- writeln('Xin chao!') thay vì writel('Xin chao!');                                       
-writeln(c); thay vì writeln(c:8); (tại vì mình nghĩ số 8 hơi dư còn không biết có phải không ^^)                                          
-cuối dòng End. thay vì End;