a. Mở tệp mới và gõ chương trình sau đây: uses crt; begin clrscr; writeln('16/3=', 16/3); writeln('16 div 3=', 16 div 3); writeln('16 mod 3=', 16 mod 3); writeln('16 div 3=', 16 –(16 div 3)*3); writeln('16 mod 3=', (16-(16 mod 3))/3); end. b. Dịch và chạy chương trình. Quan sát kết quả và cho nhận xét. c. Thêm các câu lệnh delay(5000) vào sau mỗi câu lệnh writeln trong chương trình. Dịch và chạy chương trình. Quan sát chương trình tạm dừng 5 giây sau khi in từng kết quả ra màn hình. d. Thêm câu lệnh readln vào trước từ khóa end. Dạy và chạy lại chương trình. Quan sát kết quả hoạt động của chương trình. Nhấn phím Enter để tiếp tục hoạt động.

a. Mở tệp mới và gõ chương trình sau đây: uses crt; begin clrscr; writeln('16/3=', 16/3); writeln('16 div 3=', 16 div 3); writeln('16 mod 3=', 16 mod 3); writeln('16 div 3=', 16 –(16 div 3)*3); writeln('16 mod 3=', (16-(16 mod 3))/3); end. b. Dịch và chạy chương trình. Quan sát kết quả và cho nhận xét. c. Thêm các câu lệnh delay(5000) vào sau mỗi câu lệnh writeln trong chương trình. Dịch và chạy chương trình. Quan sát chương trình tạm dừng 5 giây sau khi in từng kết quả ra màn hình. d. Thêm câu lệnh readln vào trước từ khóa end. Dạy và chạy lại chương trình. Quan sát kết quả hoạt động của chương trình. Nhấn phím Enter để tiếp tục hoạt động.

a.Đầu tiên ta mở tệp và gõ chương trình như đề bài 

b. Sau đó để dịch chương trình ta nhấn Alt với F9 , để chạy chương trình ta nhấn Ctrl với F9 rồi ta quan sát kết quả 

c.sau khi dịch và chạy chương trình và quan sát kết quả ta thêm lệnh delay(5000) như sau :

uses    crt

begin

           clrscr;

            writeln('16/3=',16/3);

            delay(5000);

            writeln('16 div 3=',16 div 3);

            delay(5000);

            writeln('16 mod 3=',16 mod 3);

            delay(5000);

            writeln('16 div 3=', 16 –(16 div 3)*3);

            delay(5000);

            writeln('16 mod 3=', (16-(16 mod 3))/3);

            delay(5000);

            end

    Sau khi xem xong kết quả ta thêm lệnh delay(5000) sau mỗi câu lệnh writeln ta dịch và chạy chương trình lần nữa và quan sát kết quả tạm dừng 5 giây mỗi khi đưa ra 1 câu đáp án của kết quả

d.Sau khi thêm kết quả ta thêm câu lệnh trước từ end như sau đây rồi dịch va chạy để xem kết quả

uses    crt

begin

           clrscr;

            writeln('16/3=',16/3);

            delay(5000);

            writeln('16 div 3=',16 div 3);

            delay(5000);

            writeln('16 mod 3=',16 mod 3);

            delay(5000);

            writeln('16 div 3=', 16 –(16 div 3)*3);

            delay(5000);

            writeln('16 mod 3=', (16-(16 mod 3))/3);

            delay(5000);

            realn;

            end.

 Sau khi quan sát xong ta nhấn Enter