In a world where Burroughs/Unisys MCP still exists, I have to believe there is still production code written in Algol.

https://en.wikipedia.org/wiki/Burroughs_MCP