begin 
    real 
        a, 
        x; 
    x := - 10.0; 
    a := (if x < 0 then x - 1 else if x > 1 then x + 1 else 
        x; 
end 


algol

begin 
    real 
        x; 
    y; 
    z; 
    x := + 6.0; 
    y := - 2.931; 
    z := 4^.2; 
end 


algol

begin 
    comment library 1;
    real 
        a, 
        x; 
    x := 0.8; 
    a := (if x >= 0 and x <= 1 then x * x - 3 * x + 4 else 
        0); 
       outreal(a);
end 




algol
begin 
integer j,k;
array a[0:3];
k := 2;
for j := 1 step 1 until k
begin 
i := 0;
end;
end 

algol

begin 
    integer 
        i, 
        j; 
    real array 
        cat(1 : 15); 
    
end 


algol

begin 
    comment library 1;
    
    comment   use of a procedure;
    
    real 
        a, 
        b, 
        ; 
    procedure example(x, y)result : (r); 
        value 
            x, 
            y; 
        real 
            x, 
            y, 
            r; 
        begin 
        x := x + y; 
        r := x^2 + y^2
        end; 
    
    a := 1; 
    b := 2; 
    example(a, a + b, r); 
outreal(1,r)
end 



algol

begin 
    switch path := 
        p1, 
        p2; 
    integer 
        n, 
        i; 
    i := 0; 
    label 1 :; 
    i := i + 1; 
    if i = 2 then 
        goto stop; 
    n := 0; 
    goto 
        if p > 0 then 
            path(n)
        else 
            label 1; 
    p1 := p - 1; 
    p2 := p - 1; 
    stop :; 
end 



algol

begin 
    integer 
        i; 
    real 
        x; 
    array 
        a[0, 3]; 
    i := 1; 
    for x := 1.0, 
        2.0, 
        3.0 do 
        begin 
        a[i] := x; 
        i := i + 1
        end; 
end 


algol

begin 
    integer 
        k; 
    k := 0; 
    if k = 0goto finish else 
        k := k + 1; 
    finish :; 
end 




algol

begin 
    real 
        x'INTEGER' i; 
    array 
        a[0 : 3]; 
    i := 0; 
    for x := 1.23, 
        2.34, 
        3.45 do 
        begin 
        a[i] := x; 
        i := i + 1
        end; 
end 


kdf9