Functional samples of Pascal code.