Tìm lỗi sai trong chương trình trên và viết lại chương trình cho đúng
ai chỉ giúp mình bài này với mình cần gấp
a) tìm lỗi sai trong chương trình trên và viết lại chương trình cho đúng
program bt;
uses crt;
var a:real;
begin
clrscr;
write('nhap a:') readln(a);
if (a mod 2:=0) then write('a la so chan');
else write('a la so le');
readln;
end.