Một số câu lệnh trong chương trình sau viết không đúng, các bạn giúp mik sửa lại cho đúng: thank bạn
Program So_Sanh;
uses crt
var A: B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’);
readln(B);
writeln(‘Nhap so B, khac so A: ‘);
readln(B);
if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
End.

program So_sanh;
uses crt;
var a,b: integer;
begin
clrscr;
write(‘Nhap so A: ‘); readln(a);
write(‘nhap so B(khac so A): ‘); readln(b):
if a>b then writeln(a,’ lon hon ‘,b)
else write(b,’ lon hon ‘,a);
readln;
end.
Gửi bạn ????