program So_Sanh;

usescrt;                                 Sửa uses Crt 

var A, B= integer;                  Integer

Begin

clrscr;

writeln(„Nhap so A: ‟); readln(A);

writeln(„Nhap so B: „); readln(A);

if A <> B then writeln(A,‟ khac „,B) else

writeln(B,‟ = „,A)

Readln;

End.

Lỗi: usescrt;

var A, B= integer;

writeln(„Nhap so A: ‟); readln(A);

writeln(„Nhap so B: „); readln(A);

if A <> B then writeln(A,‟ khac „,B) else writeln(B,‟ = „,A)

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) or (A<B)) then writeln('A khac',B) else writeln('B =',A);

readln;

End.

Trong bài có thể có sai sót, mong bn bỏ qua nhé