Search|Báo Lỗi

rất đơn giản thôi ae! chú ý màu đỏ nhé :D
program systemerror_thiendz;
var ch: char;
begin
repeat;
{ lệnh cần lặp...}
ch:= readkey;
if ch = '0' then ch:=readkey;
until ch = #27;
end.
vậy là dựa vào repeat..until (lặp trước đk sau) là ta đã chạy đi chạy lại chương trình được rồi :)
à quên, còn cách dùng nữa ^^
-nhấn phím enter để quay lại chương trình
-nhấn esc để thoát
nguồn của bạn nào bên yahoo quên mất r ^^