simple.txt

const c1 = 1, c2 = 20;
# const declaration
var v1,v2,v3,你;
procedure p1;
    var v1,x1;
    begin
    # begin
    v1:=-c2+2*3+1;
    read(v1);
    v2 := v1;
    write(c2);
    if odd v2+1 then
        v2 := 1+1
    ;
    while v2 < 10 do
        begin
        write(v2);
        v2 := v2 + 1;
        end
    ;
    你 := 100;
    repeat
        write(你);
        你:=你-1;
    until 你 = 0;
    write(你);
    end
;
procedure p2;
    begin
    v3:=1+2*3+1;
    end
;
begin
    call p1
end
.
# xxx