Program in Pascal for Murat