Program   tinh_tong;
Var  a, b: integer;
sum: integer;
BEGIN
Write(‘Moi ban nhap vao so nguyen a: ‘);
Readln(a);
Write(‘Moi ban nhap vao so nguyen b: ‘);
Readln(b);
sum := a+b;
Writeln(‘Tong hai so ban vua nhap la: ‘,sum);
Writeln(‘Ban bam Enter de tiep tuc ‘);
Readln
END.
Sau khi soạn thảo xong đoạn chương trình trên các em lưu tệp lại và cho máy thực hiện chương trình (bấm Ctrl+F9) màn hình sẽ hiện ra các chỉ dẫn:
Moi ban nhap vao so nguyen a: _ khi đó em nhập 1 số nguyên, xong bấm Enter, tiếp tục nhập b các em sẽ nhận được kết quả trên màn hình.