program vi_du {đặt tên cho chương trình}
uses crt; {Khai báo thư viên}
var x,y: integer; {Khai báo hai biên x, y thuộc kiểu integer}
procedure ....... write(x,y);
end;
{Chương trình con này sẽ thực hiện một chuỗi lệnh, nó gán giá trị x=y và giá trị y=0 sau đó in kết quả của 2 biến x, y ra màn hình}
begin
clrscr;{lệnh xóa màn hình}
x:=1;y:=2;{gán giá trị x=1 và giá trị y=2}
godoit....{chương trình con này sẽ thực hiện lệnh đã được viết như trên gán x=y tức là x đang có giá trị là x=1 sau khi thực hiện lệnh ta nhận được x=2 và y đang có giá trị là 2 nay nhận được giá trị y=0, và sau đó nó in ra màn hình 2 giá trị của x và y}
write(x,y);{in ra màn hình giá trị của x,y}
readln;
end.
{Khi đó kết quả trên màn hình là 2020}