while ( a > 5 ) do
begin
        if ( b < 3) then
           i := 1;
        z := 34;
end