sentences.txt

const c1 = 1, c2 = 2;
var v1,v2,v3;
procedure p1;
    begin
    x:=1+2*3+1;
    end
;
procedure p2;
    begin
    x:=1+2*3+1;
    end
;
begin
    while odd x+1 do
        repeat
            x := - x * 1;
            read(x,y);
        until x < 0
    ;;
    if x < 1 then
        call p1;
    read(x,y);
    write(x, y);
    x:=1;
    x:=2
end
.