enligt följande P ogram: