Các chuyên gia tin học ơi,help me vs. Hãy làm 1 lệnh mà khi lưu lại thành .exe (chạy được)bất kỳ (uses crt; var ch: char; x,y,m,xd,yd,diem: word; xuat:string; move,kt:real; procedure dich; begin repeat xd:=random(79); yd:=random(24); until (xd>0) and (yd>0); gotoxy(xd,yd); write('@'); end; begin repeat clrscr; gotoxy(23,10); write('Nhap so buoc ban muon di chuyen: '); readln(kt); until (kt>0) and (kt25 then y:=1; end; if ord(ch)=75 then begin x:=x-1; if x80 then x:=1; end; {writeln(ch,' = ',ord(ch));} if move=kt then begin clrscr; gotoxy(23,10); write('Sau ',move:3:0, ' buoc, so diem ban dat duoc: ',diem); gotoxy(26,12); write('Game over - nhan Enter de thoat'); readln; exit; end; end; until ord(ch)=27; end.) làm thế nào để chạy nó được,mình thử rồi mà phiên bản ko chạy được dg cần gấpppppppp