enligt följande Prograim 1.