Cho chương trình sau, em hãy kiểm tra lỗi của chương trình (nếu có), sửa lại cho đúng và viết thành chương trình hoàn chỉnh. program So_Sanh; usescrt; var A, B= 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. Giúp mình với nha mn =)

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é

`*` usescrt;

     uses crt;

`*` var A, B= integer;

     var A, B : integer;

`*` writeln(„Nhap so A: ); readln(A);

     writeln('Nhap so A: '); readln(A);

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

     writeln('Nhap so B: '); readln(B);

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

     if A <> B then writeln(A, ' khac ', B) else writeln(B, ' = ', A);