STGR-V01ÊüArialàGÁ Procedure OT_STGRSEQconst float RABATT = 0.02 OT_STGRSEQconst short int VERSAND = 5 OT_STGRSEQ(A: Geben Sie den Nettobetrag in EUR ein: OT_STGRSEQE: nettobetrag OT_STGRIFnettobetrag>=150€þ? OT_STGRSEQ)gesamt = nettobetrag-(nettobetrag*RABATT)GRPEND OT_STGRSEQgesamt = nettobetrag+VERSANDGRPEND OT_STGRSEQA: "Rabatt:" RABATT OT_STGRSEQ+A: Der Rechnungsbetrag beträgt $gesamt EUR. OT_STGRSEQ.A: Darin enthalten sind der Rabatt von $rabattGRPEND €ÿÿÿÿÿÿÿ