Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng

Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program Soam Soduong;

uses crt

var A, B: integer;

Begin

clrscr;

writeln(Nhap so A: );

readln(A);

if A > 0 then writeln(A,’ la so duong ‘);

else writeln(A,‘ la so am ’);

readln;

End.