program tinhtoan;

⇒ Khai báo tên chương trình là tinhtoan

uses crt;

⇒ Khai báo thư viện crt

var x, y, z : integer;

⇒ Khai báo 3 biến x, y, z kiểu số nguyên

begin

⇒ Từ khoá bắt đầu thân chương trình

write('nhap x = '); readln(x);

⇒ In xâu 'nhap x = ' và nhập giá trị cho biến x

write('nhap y = '); readln(y);

⇒ In xâu 'nhap y = ' và nhập giá trị cho biến y

write('nhap z = '); readln(z);

⇒ In xâu 'nhap z = ' và nhập giá trị cho biến z

write(' Tong 3 so la: '); writeln(x + y + z);

⇒ In xâu ' Tong 3 so la: ' và in giá trị x + y + z

write(' Tich 3 so la: '); writeln(x * y * z);

⇒ In xâu ' Tich 3 so la: ' và in giá trị x * y * z

readln

⇒ Dừng màn hình tới khi nhấn Enter

end.

⇒ Từ khoá kết thúc chương trình

program tinhtoan;

`->` khai báo tên chương trình là tinhtoan

uses crt;

`->` khai báo thư viện crt

var x,y,z: integer;

`->` khai báo ba biến x,y,z kiểu số nguyên

begin

`->` bắt đầu vào thân chương trình

write('nhap x=');

`->` in ra màn hình: nhap x=

readln(x);

`->` nhập giá trị của x từ bàn phím

write('nhap y=');

`->` in ra màn hình: nhap y=

readln(y);

`->` nhập giá trị của y từ bàn phím

write('nhap z=');

`->` in ra màn hình: nhap z=

readln(z);

`->` nhập giá trị của z từ bàn phím

write('Tong 3 so la: ');

`->` in ra màn hình: Tong 3 so la: 

writeln(x+y+z);

`->` in ra màn hình tổng của x,y,z rồi đưa con trỏ xuống dòng

write('Tich 3 so la: ');

`->` in ra màn hình: Tich 3 so la: 

writeln(x*y*z);

`->` in ra màn hình tích của x,y,z rồi đưa con trỏ xuống dòng

readln

`->` tạm dừng chương trình cho tới khi người dùng ấn phím Enter

end.

`->` kết thúc chương trình