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}