https://alandroidnet.com/related/Pascal Examples