\\  這里是注釋（以符號(hào)“@”為開頭的一整行）

const a=10;                             \\定義一個(gè)常量
var  b,c;                                   \\定義變量
procedure  p;                           \\定義過程
    begin
        c:=b+a
    end;


begin
    read(b);                                \\讀入一個(gè)數(shù)據(jù)
    while  b#0  do                      \\循環(huán)語句
       begin 
           call p;                            \\函數(shù)調(diào)用
           write(2*c);                      \\寫操作
           read(b)
       end
end.