var x, y, z;

procedure test;
var a, b, c;
begin
    a := 5;
    b := 7;
    c := b * a;
end;

procedure divide;
var d, e, f;
begin
    d := 20;
    e := 5;
    f := d / e;
end;

begin
    x := 4;
    y := 100;

    if x < y then
    begin
        z := y / x;
        y := x + y;
    end;

    while x < y do
    begin
        x := x + z;
    end;

    call test;
    call divide;
end.