Một số câu lệnh trong ct sau đây viết ko đúng, em hãy sửa lại những lỗi sai program So_sanh usercrt; var A,B=interger; Begin clrscr; writeln('Nhap so A:'); readln(A); writeln('Nhap so B:'); readln(B); if A <> B then writeln('A',' khac ',B) else writeln(B,'=' ,A) readln End.

- Tìm lỗi:

program So_sanh   // Thiếu ;
usercrt;      // uses crt;   không phải usercrt;
var A,B=interger;   // A,B:integer;
Begin
clrscr;
writeln('Nhap so A:'); readln(A);
writeln('Nhap so B:'); readln(B);
if A <> B then writeln('A',' khac ',B) else writeln(B,'=' ,A)  // Thiếu ;
        // Không sai, nhưng nên sửa thành writeln(A, 'khac ', B)
readln
End.

- Chương trình sau sửa:

program So_sanh;
uses crt;
var A,B:integer;
Begin
clrscr;
writeln('Nhap so A:'); readln(A);
writeln('Nhap so B:'); readln(B);
if A <> B then writeln(A,' khac ',B) else writeln(B,'=' ,A);
readln
End.